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Disconnect Reason Code fo i 
Fork the XWB to do new wor 
Abort current event without changing state 
Change state and process new event 
Process new event without changing state 
Event dispatcher 
schedule message transmission 
Null action routine 
BUG_CHECK action routine 
Log-event action routine 
Report ‘’SS$_FILNOTACC' 
Abort Q10 since Link was disconnected 
Start 1/0 operation 
Process I0$_SETMODE request 
10$_ACPCONTROL FDOT processing 
IOS_ACPCONTROL ‘‘startio'’ processing 
OS_ACCESS FDOT processing 
IOS_ACCESS ‘’startio’’ processing 
Connect Initiate action routine 
Connect Confirm action routine 
Complete IO$_ACCESS, fill 7 window 

ne 


Enter RU e 
10$_DEACCESS FDOT processing 
IO$_DEACCESS ‘“‘startio’’ processin 
Cleanup XWB for terminated I0$_ACCESS 
Cancel 1/0 routine 
Cleanup XWB to exit RUN state 
Entry for ACP communication 
Send counted string to mailbox 
Co-routine to send mailbox message 
Create XWB for logical-Link 
Get XWB via local Link number 
Get XWB via local Link number 
Return logical-Link XWB slot if done 
Queue XWB to NETACP's AQB 

- Drain CXB free queue 
Allocate and zero from system pool 
Allocate from system poo 
Deallocate non-paged pool 
Move counted string to XWBSB_DATA 
Move counted string with count field 
Move counted pte ing without count field 
Send IRP to COMS$POST 
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“-SEP-19 NETACP.SRCJNETDRVSES.MAR; 1 
1 TITLE WE TORY SES = DECnet Session Control Module for NETDRIVER 
§ ; “IDENT 'V04-0 
0 ¢ ITITITIIIIIIILITTIIITIITILITILITILTLTTiLiLiTiii Titi iii iii iit Tee 
3* ‘© 
000 § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
st 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
B 8 = ALL RIGHTS RESERVED. : 
0900 10 :* THIS ore es FURNISHED UNDER A LICENSE AND MAY BE USED AND copseD * 
000 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
$008 1g 3* INCLUSION OF THe ABOVE gid ad NOTICE. THIS SOFTWARE OR ANY OTHER * 
15 ;* COPIES THEREOF MAY NOT BE PROVIDED OR STHERUISE OHADE AVAILABLE TO ANY * 
0000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
48 1? :* TRANSFERRED. : 
0000 i :® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4464 i :* CORPORATION. . 
0000 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 § :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
83 : 
0000 25 ITIIIIISIIISIITTTILI LTT LL Li TTT TTT TLitii iii iiTiie 
0000 an 
0000 t 3* 
Bop $8 3 FACILITY: DECNET 
0000 $5 : ABSTRACT: This module is part of NETDRIVER and is the interface between 
464 3! s the user and the NSP Layer. 
sit $2 : ENVIRONMENT: KERNEL mode, normal driver environment. 
0000 35 ;-- 
0000 36 
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Alan D. Eldridge, CREATION DATE: 11-JUN-79 


LMP0308 L. Mark Pilant, 31-Aug-1984 16:15 
Change default state of the ACL queue in the ORB. 
ADE1042 A. Eldridge 23-Aug-1984 


Don't create an XWB if the RCBSW_MCOUNT is yan This condition 
indicates that NETACP is going away and the test is needed to 
avoid a race condition that can crash the system. 


ADE1041 A. Eldridge 25-Jun-1984 
Fix loop copter. r cleanin ng up saga Return SS$_CONNECFAIL 
ook an I0$_A S$ fct can't locat e XWB (was SS$_NOLINKS). 


Send NETSC BR RC ABORT upon 10$_ DEACCESS 108M~ ABORT (was saeaing 
NETS$C_DR SNORMAL) . 


LMP0221 Pilan 7-Apr-1984 14:29 
ORBSe'P e yews. owntiic” to KORBSC MOUNER and uces _VPROT to 
ADE1061 A. Eldridge 7-Mar-1984 

Fix resource error count -- registers were screwed up. 
ADE1040 A.Eldridge 10-Sep-1983 


Major rewrite to accomodate changes to allow NSP (NETDRVNSP.MAR) 
to use kernel mode AST's to nibble away at the user buffers 
rather than accessing them just at FDT or 1/0 post time. This 
change was needed to allow huge user buffers (for performance) 
without requiring a lot of pool. 
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a< 


acro 
RC INE 
MACROS: 

Bit definition macro 


“MACRO BITDEF BLK,SYM,BITVAL 


"BLK'SV_'SYM’ = BITVAL 
"BLK'SM~'"SYM' = 1a<BITVAL> 


: Macro to set up mailbox message filtering table 
“MACRO MBX_FILTER MESSAGE ,BIT 


-LONG MBXS$M_ ‘BIT 
«WORD MSG$_"MESSAGE 


.ENDM MBX_FILTER 


; Macro to build a mask of XWBSM_FLG_xxx bits 
“MACRO BLOMSK A 


. _SMSK + XWBSM_FLG_'A’ 
-ENDM 


Macro to fill the ‘set’ and ‘clear’ XWBSW_FLG tables 
“MACRO STATEMASK STA, SETM,CLRM 


: Build and enter the ‘set FLG* bit mask 

_SMSK = 0 

. IRP A,<SETM> 
BLOMSK A 


-ENDR 
. = NETSAW_FLG_SETM + <2*XWBSC_STA_"STA'> 
-WORD _SASK 


OOOCCOOCSOOCOCOOSOOSOSCOSOOSOOSOOOCOCOOOOOOCOOOSOOOOCOOSOOSSSOSSOS Fe 
COOGCOCOCCOOCOSOOSOOSOOOOOOSOSOOOOOOOOCOOOOOOSOOOSOOCOSOOSOSSO -trt 
OOOO OCOCOCOOCOOSOSOOCOS CGO OOOCOOCCOCCOOO OOOO OOOOOOOCOOOOOOo 


: Build and enter the ‘clear FLG' bit mask 


oo 


DODOOOOODSOOSSCOSDSOSOOOOOSOSOOSOSOSOSOSOOODOODOOOSOOOOOOOOOOOSOOOOSOOO 2X3 

me ee a eed ed ed = Sd + SS — 4 4 2 3 2 2 — 2d =  - — — — — =) 8 Ss  — 2 YS SS 

NNO AA AAAAAA A UNIUUNUIUUIUIUL ES BE EE BEE EWI II Inonononononononun 

PWN 2 OODNOAUN EWR SD OD NOAU EWN OOD NOAU EWR SO ODNAUN EWN OODNOAUESWN OO 
e@eGe Sete 


$00 

poe _SMSK = 0 

0 - IRP A,<CLRM> 

00 BLOMSK A 

00 -ENDR 

6 NETSAW FLG_CLRM + <2*XWBSC_STA_‘STA'> 
09 "WORD _SASK | 


-ENDM 
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: Macro to initialize NSP state tables 


“MACRO STTAB ; Init state transition data | 
_SEVENT INDEX = ; Init event index | 
SACT_INDEX = : Init action routine index 
ACT$_BuG == ; Init the ‘‘bug-check"’ action routine 
3; index 
_SACT_DFLT = <XWBSC_STA_CLO - ; Default state table entry 
@NETSC_ACTBITS> - ; 
+ ACT$_BUG : 
NETSAW_FLG_SETM: ; Bits to be set upon entering state 
-BLKW XWBSC_NUMSTA 3; and upon timeout 
NETSAW_FLG_CLRM:.BLKW XWBSC_NUMSTA ; Bits to be cleared upon entering state 
NETSAB_STTAB: .BLKB 0 ; Bind the table address 


: Macroes to move the current position within the state table 


“MACRO ENDSTTAB : Move PC to end of table 
. = NETSAB_STTAB - 
—_ + <_SEVENT_INDEX * XWBSC_NUMSTA> 


»MACRO EVENT EV 
EV == _SEVENT_INDEX 


-=NETSAB_STTAB + <EV_* XWBSC_NUMSTA> 
BYTE <_SACT_DFLT>CXWBSC_NOMSTAJ 


Setup for this event 


Define event code 
Move PC to proper event 
Init the entry 


SOOO COCOOCOOCOCOOOCSOOOOOOOOOOSOOOOOOOOOOOOSSoSO -trt 


SOOO OCOSSOOSOCOCSCOOOCOSOSOSSOSOCSOSOCOCOOCOC COO OCOOS OOOO OOOOOOOOOOoOo 
—— | § ~QOODODO0000 00000000 00090009 090009 09090009 III 


OOO NAUE WN 9 ODNAUE WN 9 ODNAU EWN O OONAUE WO OONIO 


Move PC to proper event | 


PREPOPOPOPOPOPOPIPONONOPOPOPUPINPOPUPONIPOPYUPINPINPIPYIDINPIPINNINYDD 3 2 9 OO OO SO 


000 
00 -=NETSAB_STTAB + <EV * XWBSC_NUMSTA> 
O08 : _SEVENT_INDEX = _SEVENT_INDEX + 1 Get ready for next event 
000 18 .ENDM 
8° 1 
$0 i: | 
4 ¢ : Macro to fill the build and enter the state transition table element 
bp : “MACRO STATE  CURSTA,NXTSTA,ACTION, 2LL 3; Make table entry 
000 6 "|=. +XWBSC_STA_"CURSTA® ; Goto state table entry | 
0 ; 
33 : 3 If the action routine index is not defined then define the index 
° 1 ; Create the state-table entry. 
000 2 3 


4 
4 
4 


M—OWOONOUSEw 
. 


“IF NDF, ACTS ACTION’ 
"ACTION' = _SACT_INDEX 
ASACT.. INDEX = “S$ACTZINDEX + 1 


C 
E <XWBSC_STA,"NXTSTA’ @NETSC_ACTBITS> + ACTS_"ACTION’ 
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EQUATED SYMBOLS: 


Argument List offsets for Q10 
00000000 p1 = 0 : Buffer address 
0000004 P = 4 + Buffer Length 
§0080008 Bg = 8 + Mecellancsus 


ASSUME FKBSC_LENGTH LE ACBSC_LENGTH 


44 
t2 
o} 
: 
38 
54 
2? 
3 
00000120 0 59 _$tm == <XWBSS_XWB+7>8°C<7> ; XWB Length, quad word aligned 
00000160 3 60 Rwes == _S$tmp+b4 3 Allow oneu n "room for the route-header 
00000120 8 0 61 XWBSL_PTR_RTHD == _$tmp ; Ptr to route-header 
a SE 00 6¢ a ty Bd INX == $tmp +4 : Adjacency index 
00000158 0000 635 XWBST_TRS3ADR == RWBS$-8 ; Start of standard Phase III header 
0 38 ge ; (must be quadword aligned) 
0000017C 0090 68 XWB_C_LEN = XWBS$+ACBSC_LENGTH ; Total XWB Length 
0000 68 ; 
0000 69 ; Definitions for mailbox message filtering 
0000 70 ; 
0000 271 $VIELD MBxX,0,<- 
0000 ie <NETSTATE, ,.M>,= : 
0000 27 <EVTAVL, ,M>,=- ; Events available for logging 
0000 274 <EVTRCVCHG, ,M>,- 3; Event receiver database change 
0000 $3 <EVTXMTCHG, ,M>,- ; Event xmitter database change 
0000 76 > 
0000 77 
0000 78 ; 
0000 79 ; k , 
st 0 : Define a mask containing all bits indicating work needs to be done 
0000 ¢8¢ ; 
0000 283 kWBSM_FLG_WMSK = XWBSM_FLG_SCD ! - 
0000 284 XWBSM"FLG-SDT | XWBSM_FLG_SDACK!- 
0000 385 XWBSM~FLG-SLI | XWBSMFLG_SIACK!- 
0000039D 9000 386 XWBSM_FLG-CLO | XWBSM~FLG BREAK 


| 
; Network state change 
| 
| 
| 
| 
| 
| 
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Woee600 DECLARATIONS eye 83: 36: :26 YNETACE. ee CINETDRVSES.MAR; 1 ° a8 
80 
$3 ; DRIVER PROLOGUE TABLE 
9 e 
0000 94 -PSECT $$$105_PROLOGUE 
3) 95 DPTAB = ; Define driver prologue table 
39 ND = At peyags 3; End of driver 
00 9 ADAPTER = 3; Adapter type 
00 98 UCBSIZE = UCBSC. LENGTH,- : UCB size 
a3 44 NAME = NETDRIVER 3 Setesr name 
09 5 a DPT_STORE INIT ; CONTROL BLOCK INIT VALUES 
0038 08 DPT_STORE CRB,CRBSL_INTD+VECSL_ADP,L,0 ; No ADP pointer 
003F 04 DPT-STORE UCB,UCBS$SW_MB_SEED,W,0 3 Init. unit value for cloning 
0044 05 DPT"STORE UCB. UCBSB “FIPL.B,NET$SC_IPL : Fork IPL 
048 06 DPT_STORE UCB,UCB $B- DIPL,B,NETSC_IPL 3; Device IPL 
004c 307 DPT“STORE ORB.ORBS$B_FLAGS,B,- 
004€ 308 <ORESM_PROT_16> : SOGW trepretect word 
0050 09 DPT_STORE OR3,ORBSW_PROT,W,0 ; Default protection 
0055 310 DPT-STORE ORB,ORBSL-OWNER,L,<*X010001> : Owner U 
005C 11 DPT-STORE UCB, UCBSL DEVCHAR,L,=- g sate og SEE 
005C \¢ <DEVSM_NET!- ; Network device 
005C 1 DEVSM_AVL !- ; Available 
005C¢ 14 DEVSM_MBX!- ; Mailbox type (no hardware) 
005C 15 DEVSM_IDV!- : Input device 
Bpae , PEVSA_ODV- ; Output device 
0063 318 DPT_STORE UCB,UCB$W _DEVBUFSIZ.W,256 é 
0068 319 DPT “STORE uCcB, -UCBSL~ _DEVDEPEND,L,=- 3 
0068 20 MBXSM_NETSTATE ; Enable NETSHUT by default 
6 F 21 DPT_STORE UCB,UCB$W_STS,W,- g 
F $6 <UCBSM -ONLINE!= ; Device online 
0 : i _ UCB Sa. TEMPLATE-; mre i ae Pp oy A 
8 of : 3; used to bu other s 
2 § DPT_STORE REINIT ; CONTROL BLOCK RE-INIT VALUES 
0074 8 DPT_STORE DDB,DDBSL_DDT,D,NETSDDT 
0079 9 UPT-STORE CRB.CRBSL_INTD+VECSL_INITIAL, D,NETSCTLR_INIT 
0 § 0 DPT_STORE CRB,C SL~INTD+VECSL-UNITINIT,D.NETSUNIT INIT 
0 31 DPT_STORE CRB,CRBSL_INTD+VECSL_START, D,NETSACP_COMM 
8 : 3 DPT- STORE CRB,CRBSL_INTD+4, D,NETSINTERRUPT 
008D 334 DPT_STORE END : 
0000 35 
0000 36 
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65 


; DRIVER DISPATCH TABLE 


-PSECT $$$115_DRIVER,LONG 
DDTAB tha 


STA RT NETS 
ALTSTART= NETSALTENTRY, 3 


oyne ie 


ANCEL ETSCANCEL,-. : 
UNSOLIC = NETSUNSOL_INTR: 
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= NET,= 


= FU 


NETABL E 


~SBTTL FUNCTION DECISION TABLE 


FUNCTABLE: 
FUNCTAB 


FUNCT AB, 


ACCESS, - 
ACBCONTROL .- 
EACCESS,- 


ART IO, - 


<READVBLK ,READLBLK, - 
WRITEVBLK,WRITELBLK,- 
SETMODE,- 


<READVBLK, READLBLK,=- 


> 


fantian NETS 


FUNCTA 


WRITEVBLKWRITELBLK, - 
SETMODE ,- 


ACCESS, - 
ACPCONTROL,- 
DEACCESS,= 


PRMAAM 


‘ 
; 


<READLBLK> 
uP TSLSLK> 


< 
és, <DEACCESS> : Disconnect Logical-Link 
« <SETMODE> : 


33:10 aes Macro V04-00 
:20:26 (CNETACP.SRCINETDRVSES.MAR; 1 


DRIVER DISPATCH TABLE 

Function decision table address 
Start 1/0 operation 

Alternate 1/0 request entry point 
Cancel 1/0 entry point 
Unsolicited laterrupt 


FUNCTION DECISION TABLE 

Legal Functions 

Read 

Write 

a mailbox message filters 
Legtcate “Link Connect/Reject 

Control function 
Eeetaeke “Link Disconnect 


ee 1/0 FUNCTIONS 


Write 
res nef bex message filters 
Logtcale “Link Connect/Reject 
Control function 
eh = “Link Disconnect 


; Read 
Write 
Connect Logical-Link 


Set mailbox message filters 
; ACP Control 


rane 8, 
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State Table 


00000080 
44444 
00000098' 
00000118 
FFFFFEFS* 
00000005 
0 
0 
0 
0 
0 
0 


Oo 


00000003 
000000E0 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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78 .SBTTL State Table 
18 


0; 
1; OWN STORAGE: 
PATCH_AREA_SIZE = 128 
5 NETSGQ_PATCH:: 
: .LONG PATCH_AREA_SIZE 
~ LONG +4 
: .BLKB = PATCH_AREA_SIZE 
91 
5 NETSGL_OFF_DPTFLG:: 
94 NETSC_ACTBITS 
95 NETSC-STABITS = 
38 NETSM_STAMSK = <7>a5 
98 
99 
00 
01; 
402 ; 
403 STTAB 
404 
05 EVENT NETEVTS_CI 
238 STATE CIS, CIS, BUG 
0 STATE CAR, CAR, LOG 
08 STATE CIR. CIR.  RCV_CR 
09 STATE CCS, CCS, RCV_CR 
10 STATE RUN, RUN, LOG 
11 STATE DIS, DIS, LOG 
\¢ STATE DIR, DIR, LOG 
1? STATE CLO, CIR, RCV_CI 
15 EVENT NETEVTS_CA 
16 STATE CIS, CAR, RCV_CA 
17 STATE CAR, CAR, NOP 
\8 STATE CIR, CIR, LOG 
1 STATE CCS, CCS, LOG 
0 STATE RUN, RUN, NOP 
1 STATE DIS, DIS, NOP 
§ STATE DIR, DIR, NOP 
Z STATE CLO, CLO, NOP 
5 EVENT NETEVT$_CC 
§ STATE CIS, RUR, RCV_CC 
STATE CAR, RUN, RCV_CC 
3 STATE CIR, CIR, LOG 
STATE CCS, CCS, LOG 
? STATE RUN, RUN, NOP 
STATE DIS, DIS, NOP 
¢ STATE DIR, DIR, NOP 
; STATE CLO. CLO, | RTS_NLT 


; Size of patch area space 


; (not an address - offset from start 


; of image to base of patch space) 


; Number of action bits per entry 
3; Number of state bits per entry 
3; State bit mask 


Init state transition table 


CI message received 

something wrong in the driver 
unexpected event 

Assume received retransmitted Cl 
Assume received retransmitted Cl 
unexpected event 

unexpected event 

unexpected event 

inbound connect sequence 


Connect Ack received 
measure intial round-trip time 
assume retransmission 
unexpected event 

unexpected event 

assume late arrival 

assume late arrival 

assume Late arrival 

assume late arrival 


Sete Ge Ge Se Ge Ge Se Ge 


Connect Confirm received 
normal handshaking sequence 
normal handshaking sequence 
unexpected event 

unexpected event 

assume retransmission 

we enter DIS for many reasons 
assume late arriva 

assume Late arrival 
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-LONG DPTSTAB + DPTSB_FLAGS - . ; Offset to DPTSB_FLAGS 


The following definitions must be contiguous to the NSPTABLES definition 


1 
1 


0 
4 
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14C 4 
140 4 : EVENT NETEVT$_PH2CCS ; Phase II connect confirm xmt-complete 
154 4 8 STATE CIS, CIS, NOP 3 
154 4 STATE CAR, CAR, NOP : 
154 44 STATE CIR, CIR, NOP 3 
154 «44 STATE CCS, RUN, ENT_RUN ; Normal Phase II handshaking sequence 
154 ri) STATE RUN, RUN, NOP 3 
154 44 STATE DIS, DIS, NOP 3 
154 444 STATE DIR, DIR, NOP 3 
182 re STATE CLO, CLO, NOP 3 
154 403 EVENT NETEVTS_RTS ; Rev “return to sender’’ CI message 
15 oe8 STATE CIS, CLO, RCV_RTS ; Process returned message 
15C 44 STATE CAR, CAR, NOP 3; Assume Late arrival on retransmission 
15C 450 STATE CIR, CIR, NOP 3; Assume Late arrival on retransmission 
15C 451 STATE CCS, CCS, NOP 3; Assume late arrival on retransmission 
15¢ 12g STATE RUN, RUN, NOP ; Assume Late arrival on retransmission 
015C 45 STATE DIS, DIS, NOP ; Assume Late arrival on retransmission 
015C 454 STATE DIR, DIR, NOP 3 Assume late arrival on retransmission 
Bize $3? STATE CLO, CIR, NOP ; Assume late arrival on retransmission 
015C¢ 439 EVENT NETEVT$_DATA ; Data message received 
0164 458 STATE CIS, CIS, LOG i unexpected event 
0164 459 STATE CAR, CAR, LOG 3 unexpected event 
0164 460 STATE CIR, CIR, LOG 3 unexpected event 
0164 461 STATE CCS, RUN, ENT_RU 3 a normal handshaking sequence 
0164 +06 STATE RUN, RUN, RCV_DATA 3; this is what NSP is for 
0164 46 STATE DIS, DIS, NOP ; unavoidable race in sending DI 
0164 464 STATE DIR, DIR, NOP 3 assume late arrival 
the $32 STATE CLO, CLO, RTS_NLT ; assume Late arrival 
0164 467 EVENT NETEVT$_DTACK 3; Data Ack received 
016C 468 STATE CIS, CIS, LOG 3 unexpected event 
Bige 469 STATE CAR, CAR, LOG 3 unexpected event 
16C 470 STATE CIR, CIR, LOG 3 unexpected event 
016C 471 STATE CCS, RUN, ENT_RUN 3 a normal handshaking sequence 
016C $76 STATE RUN, RUN, RCV_DTACK ; drive the Link 
016C 47 STATE DIS, DIS, NOP 3 assume late arrival or race 
abe: 474 STATE DIR, DIR, NOP 3 assume late arrival or race 
Bier $22 STATE CLO, CLO, RTS_NLT 3; assume late arrival or race 
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16C 47 
196 138 EVENT NETEVT$_LS 3; Link Service — received 
174 480 STATE CIS, CIS, LOG 3 unexpected eve 
174 = 481 STATE CAR, CAR, LOG 3 unexpected event 
174 4 ¢ STATE CIR, CIR, LOG 3 unexpected event 
174 4 STATE CCS, RUN, ENT_RUN ; 8 norms: handshaking sequence 
174 484 STATE RUN, RUN, RCV_LI 3; drive the Link 
174 485 STATE DIS, DIS, NOP 3 assume late arrival or race 
174 & § STATE DIR, DIR, NOP 3; assume late arrival or race 
Ve ? f STATE CLO, CLO, RTS_NLT i assume Late arrival or race 
Biee 489 EVENT NETEVTS_INT ; Interrupt msg received 
17C «©6490 STATE CIS, CIS, LOG 3 unexpected event 
017C 38 491 STATE CAR, CAR, LOG 3 unexpected event 
017C 136 STATE CIR, CIR, LOG 3 unexpected event 
O17C 8649 STATE CCS, RUN, ENT_RUN ; a normal nendoneh ing sequence 
017C 494 STATE RUN, RUN, at 3; drive the Link 
017C 495 STATE DIS, DIS, 3 assume Late arrival or race 
017C «849 STATE DIR, DIR, NOP 3; assume late arrival or race 
B45 rh 44 STATE CLO, CLO, RTS_NLT 3; assume late arrival or race 
017C 499 EVENT NETEVT$_LIACK 3 INT/LS Ack received 
0184 500 STATE CIS, CIS, LOG 3 unexpected event 
0184 501 STATE CAR, CAR, LOG 3 unexpected on 
0184 206 STATE CIR, CIR, LOG 3 unexpected e 
0184 50 STATE CCS, RUN, ENT_RUN 3; a normal handshak ing sequence 
0184 504 STATE RUN, RUN, RCV_LIACK ; drive the Link 
0184 505 STATE DIS, DIS, NOP 3 assume late arrival or race 
0184 506 STATE DIR, DIR, NOP 3 assume late arrival or race 
Ht a4 STATE CLO, CLO, RTS_NLT 3; assume late arrival or race 
0184 509 EVENT NETEVT$_DI : Disconnect Initiate msg rcv'd 
018C 510 STATE CIS, DIR, RCV_Dx : link rejected 
pige 511 STATE CAR, DIR, RCV_Dx 3; link rejected 
18C 21g STATE CIR, DIR, ABORT ; abort the Link, no local owner 
018C = «51 STATE CCS, DIR, RCV_Dx 3 abort the Link 
018C 514 STATE RUN, DIR, RCV_Dx : abort the Link 
018C 86515 STATE DIS, DIR, ABORT 3 change state and send DC 
018C 516 STATE DIR, DIR, NOP 3: send DOC 
Bist aif STATE CLO, CLO, RTS_NLT 3 assume race or late arrival 
018C 519 EVENT NETEVTS$_DC 3; Disconnect Confirm msg rcv'd 
0194 520 STATE CIS, CLO, RCV_Dx : link rejecte 
B13 2 1 STATE CAR, CLO, RCV_Dx : link rejected 
194 § STATE CIR, CLO, ABORT 3; link aborted, no local owner 
0194 5 STATE CCS, CLO, RCV_Dx : link aborte 
B18¢ 4 STATE RUN, CLO, RCV_Dx ; link aborted 
194 5 STATE DIS, CLO, NOP 3 normal handshaking sequence 
0194 § STATE DIR, CLO, NOP : assume DC is a ‘no Link terminate’ 
0194 5§ STATE CLO, CLO, NOP 3 assume Late arrival 
0194 528 
0194 529 
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194 1 

194 § EVENT NETEVT$S_DSCLNK 3; Link failed are test 

19C¢ STATE CIS, CLO, ABORT 3 connect timed o 

19C 4 STATE CAR, DIS, ABORT ¢ connect timed out 

19C 5 STATE CIR, DIS, ABORT 3; local system is Saws 

19C § STATE CCS, DIS, ABORT 3 connect timed o 

19¢ STATE RUN, DIS, ABORT 3; problem talking veith remote node 

19C 3 STATE DIS, CLO, NOP 3; abort the Link 

19¢ STATE DIR, CLO, NOP 3; abort the Link 

13 3 STATE CLO, CLO, NOP ; Try to seellanate XWB 

19C 4 

19C rk EVENT NE TEVT$_CANLNK 3; Local cancel of Link 
O1A4 ete STATE CIS, CLO, CANLNK : abort from a Connect state 
O1A4 45 STATE CAR, CLO, CANLNK 3; abort from a Connect state 

1A4 278 STATE CIR, DIS, CANLNK 3; abort Link, no local owner 

1A4 4 STATE CCS, DIS, CANLNK 3; abort from a Connect state 

1A4 278 STATE RUN, DIS, CANLNK 3; orderly shuttdown 

1A4 49 STATE DIS, DIS, NOP : link is already disconnecting 

1A4 550 STATE DIR, DIR, NOP 3; link is already disconnecting 
RIM 23) STATE CLO, CLO, NOP 3; link is already disconnecting 
01A4 226 EVENT NETEVT$_RESDIS 3; Resume disconnect 
O1AC 30 5554 STATE CIS, CIS, BUG ; Valid only from RUN state 
O1AC 83»: 555 STATE CAR, CAR, BUG 3; Valid only from RUN state 
O1AC 36: 5556 STATE CIR, CIR, BUG 3; Valid only from RUN state 
gia 557 STATE CCS, CCS, BUG 3; Valid only from RUN state 

1AC 3=—._: 5558 STATE RUN, DIS, RES_DISC : Disconnect if XWB is idle 
Q1AC 36559 STATE DIS, DIS, BUG ; Valid only from RUN state 
Q1AC 560 STATE DIR, DIR, BUG ; Valid only from RUN state 
QO1AC 561 STATE CLO, CLO, BUG 3: Valid only from RUN state 
01AC 266 
O1AC }3=— 56 


+ 
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1AC 65 

1AC 66 EVENT NETEVTS_CIA ; Connect Initiate IO0$_ACCESS 

1B4 6 STATE CIS, CIS, BUG ; XWB was just created 

1B4 6 STATE CAR, CAR, BUG ; XWB was just created 

1B4 § STATE CIR, CAR, BUG 3; XWB was just created 

1B4 9 STATE CCS, CCS, BUG ; XWB was just created 

1B4 7 STATE RUN, RUN, BUG 3; XWB was just created 

1B4 i STATE DIS, DIS, BUG 3; XWB was just created 

1B4 7 STATE DIR, DIR, BUG ; XWB was just created 
Bee fe STATE (CLO, CIS INITIATE : Normal connect initiate seq. 
01B4 6 EVENT NETEVTS_CCA ; Connect Confirm IO$_ACCESS 
01BC 7 STATE CIS, CIS, SSABORT : Confirm not possible 
pee 4 STATE CAR, CAR, SSABORT 3; Confirm not possible 

1BC 7 STATE CIR, CCS, CONF IRM 3; Normal connect confirm seq. 
01BC 580 STATE CCS, CCS, SSABORT : Confirm not possible 
01BC 3: 581 STATE RUN, RUN, HRLNK : Second accessor to Link 
018C 286 STATE DIS, DIS, SSABORT ; Confirm no longer possible 
01BC 3 3=s 458 STATE DIR, DIR, SSABORT ; Confirm no longer possible 
Bee 286 STATE CLO, CLO, SSABORT 3; Confirm no longer possible 
01BC 286 EVENT NETEVT$_CRA ; Connect Reject IO$_ACCESS 
01¢4 «= 558 STATE CIS, CIS, SSABORT ; Reject not possible 
0104 588 STATE CAR, CAR, SSABORT ; Reject not possible 
01C4 589 STATE CIR, DIS, CONF IRM ; Normal connect reject seq. 
01¢4 590 STATE CCS, CCS, SSABORT ; Reject not possible 
01¢4 38591 STATE RUN, RUN, SSABORT 3; Reject not possible 
014 286 STATE DIS, DIS, SSABORT 3 Reject not possible 
01¢4 59 STATE DIR, DIR, SSABORT 3; Reject not possible 
Bite a3¢ STATE CLO, CLO, SSABORT 3; Reject not possible 
0104 596 EVENT NETEVT$_DEA ; Q10 I0$_DEACCESS 
01CC 597 STATE CIS, CIS, BUG 3; Channel should not have window 
O1cC 598 STATE CAR, CAR, BUG 3; Channel should not have window 
01cC 599 STATE CIR, CIR, BUG 3; Channel should not have window 
01cC 600 STATE CCS, CCS, BUG 3; Channel should not have window 
o1cc «601 STATE RUN, DIS, DEACCESS ; But change to DIS state only 
oicc 3 60 : if this is the last accessor 
oicc 60 STATE DIS, DIS, DEACCESS ; Link was aborted externally 
01CC 604 STATE DIR, DIR, DEACCESS 3 Link was aborted externally 
Bite oR? STATE CLO, CLO, DEACCESS 3 Link was aborted externally 
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; Setup tables which g iy which XWB$W_FLG bits to set and clear upon 

3; a transition into a new state. 

3 New 

: State Flags to set Flags to clear 

STATEMASK CIS, <SCD> <WBUF > 

STATEMASK CAR, <CLO> <WBUF > 

STATEMASK CIR, <SCD> <WBUF > 

STATEMASK CCS, <SCO> pov yy 

STATEMASK RUN, <SDT,SDFL,WHGL> <WBUF,SCD> 

STATEMASK DIR, <SCD> <WBUF .WBP, WHGL ,WDAT,SDT,SLI,SDACK,SIACK,=- 
K,1AV L. TBP R,SIFL,SDFL> 

STATEMASK DIS, <SCD> <WBUF ,WBP,WHGL,WDAT sof SL1°SD ACK, SIACK,- 
K, 1 L TBPRSIFL .SDFL> 

STATEMASK CLO, <CLO> <WBUF ,WBP,WHGL,WDAT, sof. SLI.S DACK,SIACK,=- 

SCD,BREAK,[AVL, TBPR,SIFL,SDFL> 
ENDSTTAB 


; The following mask is used to identify the subset of flags used 
: to signal work to be done 


NETSGL_WORKBITS: : .LONG XWBSM_FLG_WMSK ; Flags requiring work to be done 


662 MBX_TABLE: ; Table for mapping mbx msg codes 
663 ; to filter bit 
MBX_FILTER Rites + la ; Network state * change 
BX_FILTER EVTA L,EVT AVL ; Events available for logging 
MBX_FILTER EVIRCVCHG. EVTRCVCHG ; Event receiver database change 
MBX ~'} EVTXMTCHG,EVTXMTCHG ; arene watrrer database change 
; End of table 
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| 
p Oe 671 -SBTTL NETSAZ_DR_TABLE = Disconnect Reason Code Mapping 
4 $58 | 
06 674; 
Be of? ; Macro to set up connect reject reason codes 
90000009 04 $79 REASON_W_DR z= 0 ; Reason code 
0000000 8 04 678 REASON_W_SS == 2 ; SS$_.. to return in data IRP's 
00000004 04 679 REASON W"MBX sz 4 ; MBX$_.. message code 
00000006 8 Be pet REASON_C_LENGTH == 6 
8 6 686 -MACRO MRC REASON, SS_CODE ,MSG_CODE 
0204 684 -WORD WNETS$C_DR_‘REASON 
0204 685 » WORD SS$_'SS CODE 
OS 0¢ 686 ~ WORD MSGS_'MSG_CODE 
0204 687 
0204 688 .ENDM MRC 
OSoe 689 
0204 690 
00000064 0204 691 NETSC_DR_INVALID == 100 ; Fake value meaning ‘'not setup"’ 
00000066 O50¢ O38 NETSC_DR_DEACC z= 102 ; Fake value for code conversion 
0204 694 NETSAZ_DR_TABLE: ; Table for mapping disconnect reasons 
0206 695 : for other than the ‘'connect-initiate’ 
0204 696 3 state 
0204 697; 
0204 698 ; 
9204 699 : discon data mailbox 
0204 700; reason status message 
6206 701:  weenee cacccecce 8 ceccesne 
0204 702; 
0204 703 MRC NORMAL, LINKDISCON, DISCON 3 
020A 704 MRC EX LINKEXIT, EXIT ; User exit or timeout 
0210 705 MRC NOPATH, PATHLOST. PATHLOST : Path lost to partner node 
0216 706 MRC SHUT, HUT NETSHUT ; Node shutting down 
021C 707 MRC NOBJ, PROTOCOL, AB : No such object 
0 § re MRC ABORT, LINKABORT, ABORT 3; Disconnect abort 
0 709 MRC THIRD, THIRDPARTY, THIRDPARTY ; Disconnect by third party 
022E 710 MRC ACCESS, ROTOCOL, ABORT 3; Login info invalid 
0234 711 MRC . PROTOCOL, ABORT ; Resource error 
023A ay MRC BUSY, PROTOCOL, ABORT ; Object too busy . 
0240 713 MRC ROTOCOL, ABORT ; Illegal process name field 
0246 714 WRC NONODE, PROTOCOL. : Unrecognized node i.d. 
3 : ak MRC IVNODE, PROTOCOL, ## ABORT : Invalid node-i.d. format 
52717 : 
0 : £18 ; The following are internal codes and are not part of NSP 
0252 720 : 
8 5 721 MRC BHEACC LINKDISCON, DISCON ; Link is IO$_DEACCESS‘ed | 
38 g : MRC INVALID,LINKABORT, ABORT : Reason field never setup 
FFFFFFFF 5 724 .LONG -1 ; Terminate the table (the last entry 
6 725 ; is to be used as a catch-all) 
6 7 § 
6 7 


<Zz 


—E 13 | 
n Control Module for NETD 16-SEP-1984 01:32:10 VAX/VMS Macro V04-00 Pa 18 | 
- Disconnect Reason Code met} 7 83:35:38 ENETACP. SREINE TDRVSES.MAR: 1 a (3, | 


sm 


zt 
m 
a0 
worn 
ro 
~S 
e 
oe 
=» 
'ow 


=® 


SSS & 


} 


z 
mm 
_" 
Sod 
> 
La] 
a 

b= J 
= 
‘ 

oO 
Oo 
2 
por’) 
> 
wo 
*. 


; Table for mapping reject reasons 
; in one of the ‘connect’ states 


discon connect mailbox 
reason status message 


NORMAL, REJECT REJECT 
EX LINKEX{T EXIT 
NOPATH, UNREACHABLE, PATHLOST 
NOSUCHOBJ, REJECT 


fe) 
é 
0 
4 
5 
; Connect reject 
9 

: 

: MRC ABORT, LINKABORT 
4 

5 

6 

7 

8 

9 

0 

: 

4 

5 

6 

7 

8 

9 


User exit or timeout 

Path lost to partner node 
Node shutting down 

No such object 

Disconnect abort 
Disconnect by third party 
Login info invalid 
Resource error 


-  AB0 
MRC THIRD, THIRDPARTY, uy ARTY 


MRC ACCESS, INVLOGIN, 
RSU REMRSRC 


DODD OWODOW YS S OO OWWON NAA AAAAAAAAAO 


8 
0 
8 E 
4 4 
027A 4 
0280 4 
0286 4 
0 4 
0 4 RE 
0 46 MRC BUSY, REMRSRC, RE Object too busy 
029E 47 MRC . PROTOCOL, RE Illegal process name field 
02A4 48 MRC NONODE, NOSUCHNODE, RE Unrecognized node i.d. 
85 h ¢ MRC IVNODE, NOSUCHNODE, RE Invalid node-i.d. format 
0280 75 : 
02 ; ; The following are internal codes and are not part of NSP 
0280 75 ; 
0280 55 MRC DEACC ABORT, ABORT ; Link is IO$_DEACCESS'‘ed 
8s ; MRC INVALID, CONNECFAIL, ABORT : Reason field never setup 
FFFFFFFF 8s C 58 .LONG -1 : Terminate the table (the Last entry 
osce 5 ; is to be used as a catch-all) 
02C0 60 
pgce 761 
02C0 roe 
02CO 763 NETSMAP_R_REASON:: ; Map Reason code in XWB$W_R_REASON 
50 FFSA CF 9E O2CO0 764 MOVAB = W*NETSAZ_DR_TABLE - ; Setup non-connect table address 
8 ce 19 -REASON_C_CENGTH,RO 3 ...biased for scan 
02C5 767 ASSUME XWBSC_STA_CLO EQ 0 
02c5 = 768 ASSUME XWBSC_STA_CIS EQ 1 
02¢3 769 ASSUME XWBSCTSTATCAR EQ 2 | 
1E AS Oe 91 CS) 771 CMPB # XWBSB_STA(RS) : Is ‘connect intiate’ table needed? 
05 19 02C¢9 17 BLSS 108 ; If enno 
50 FF8D CF 9E C 77 MOVAB W*“NETSAZ_DR_CONTAB - ; Setup connect-intiate table address | 
8 3 oe ~REASON_C_CENGTH,RO 3 ...biased for scan 
50 06 CO 8 4: ere 10$: ADOL #REASON_C_LENGTH,RO 3; Goto next entry 
44.05 B61 0203 77 CMPW XWBSW_RTREASON(RS),- =: Does it match ? 
60 6 6 178 REASOR_@_DR(RO) : 
07 =«13 D 77 BEQL 20$ :; If EQL then yes 
69 D5 D9 «=: 780 TSTL (RO) ; At end of table? 
r 1 DBS sé7831 BGEQ 10$ 3; If GEQU then no 
a oe iF § SUBL #REASON_C_LENGTH,RO ; No match found, use the default entry | 
0 EO 783 208: RSB 
02E1 784 | 
| 
| 
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§ » SBTTL NETSFORK - Fork the XWB to do new work 
8 ; 
09 ; 


zt 
mm 
De 
neo 


f the fork block in the XwB is pve; lapte it is forked so that the work 

n XWBSW_FLG will be done. If the fork block is unavailable, no further 
action i§ required since the XWBSW_FLG ave will get done when to XWB fork 
process is subsequently resumed. 


INPUTS: R5 XWB address 
RO Garbage 
OUTPUTS: RO #1 
ALL other registers are preserved 


ETSFORK:: ; Fork t XWB 
06 0E AS 02 BBSS #XWBSV_STS_SOL,XWBSW_STS(R5),20$ ; If Bs x block in use 
3€ PUSHR #*M<R1,R2,R3,R4,R5> Save regs 
06 BSBB Schedule fork and return 


0 

f 

4 

+ 

8 ; 

9 

0 

4 

4 

: 

10$: POPR = #*M<R1,R2,R3,R4,R5> 
4 20$: MOVL #1,RO0 
4 
5 
6 
? 
8 
9 
0 
4 
5 
6 
: 


Always return success 
Done 


xe. 30$: MOVAB XWBS$Q 4 aaa R5 Switch to fork block context 
00000000 ' GF JSB Fork 
55 ECA MOVAB =XWBSQ_ FORK (RS). RS Restore XWB context 


BICW  #XWBSM_STS_SOL,XWBSW_STS(RS5) 
10 AS OO BICW  #XWBSMIFLG-WBUF ,XWBSQ_FLG(R5) 9 i wait flag to allow retry 
10 0F AS =O BBC #XWBSV-STS"DIS, KWBSW “STS(R5) , 1008; If BC, disconnect not pending 
1> 


PUSHR — #*M<R6,R7.RB/RO.RI0 RI 

MOVZBL #NETEVTS_RESDIS,R7 

BSBW  -NETSEV 

POPR = #°M<R6,R7,R8,R9,R10,R11> 
10S: BSBW -NETSSCH_MSG 


Save Event regs sw 
Say ‘'not okay” to q° to IPL 2 
Event is ‘resume 

Signal the event 

Restore regs 


eaccess 


oS 
m 
Pad 
wm 
So 
rx 
ow @Wwwoo m o-—-0 OFC @a-— m 
CGOOCCOCOCOOOCOCOOSOOOOOOOOCOOOOOCOOOoOOO 


WNW AAAI WII AIA III ino nononononononononp 


Schedule message transmission 
Done 
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neo 
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54.59 
1E AS 


—WOouoo— 
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m 
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T = Abort current event with 5-SEP-19 
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-SBTTL NETSEND EVENT = Abort current event without changing state 

-SBTTL NETSCOMPLEX EV = Change state and process new event 

» SBTTL NETSPRE_EMPT - Process new event without changing state 


These routines are called by the dispatched event action routines in order 
to complete current event processing in a non-standard way. They should be 
considered substitutes to the RSB instruction which is normally used to 
return control == consequently the stack is checked for the return address 
of the event dispatcher. 


CALLING SEQUENCE: JMP NETSxxx 


own 
alo l=] 


—— tO M— 
=—OW— "oO 


at 
-o 


<© +000 09 00 00 09.09 Cd C9 C9 09 Cd C9 Cd OD CD 09 Cd GD Od COD CD CD Od Cd Cd CD CD CD Cd CD C0 C9 CD Cd CD C9 C0 09 09 0D CD C9 CO CD CD CDCDCDCD 


oo-o0 0 
monn 


3s 


0 
0 
Q 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


WWIAAAI NAIA WIAA AAI AIA NIAINI AIA AINA AWA ANNI AAAI AINA AAAI AIAN NIAAA AAAI AAAI 
PUT BS BB BB BE EH ENN AINA AAAI GP PIPIPYINDININYININIPONYINIPYPNIPIPYIPIPIPPUNIPOPYPONPINIPINPOPUNPY 


ANS MODWIMUIW NO DNLSVOOCO "OPS YP YrYrrYrrrrrrrrrr,rr,rr rr PP rrrrrr,r 


ono 
oo 


INPUTS: eae 


Preserved for call to action routine 


4 
5 
§ 
35 
60 
2] 
i 
65 9 The value originally stored by the event dispatcher 
06 Preserved for call to action routine 
6 R7 Code of new event to be processed (scratch if NETSEND_EVENT) 
68 R6 The value originally stored by the event dispatcher 
69 R5 XWB address 
70 R4-R1 Scratch 
71 RO If NETSEND_EVENT the status to be returned to the 
ie caller of the event dispatcher, 
7 Else scratch 
74 (SP) The address of CHANGE_STA which is the NETSEVENT return 
e address. 
77 OUTPUTS: N/A 
15 
80 NETSEND_EVENT:: ; End event without changing state 
81 BSBB CHKRETADDR ; Make sure stack is setup properly 
Hf BSBW NETSSCH_MSG :; Schedule message transmission 
o7 RSB 
85 NETSCOMPLEX_EV:: ; Change state, process new event 
86 BSBB CHKRETADDR ; Validate state of stack 
87 EXTZV M#NETSC_ACTBITS,- : 
88 NETSC_STABITS,R9,R4 ; Get next state 
89 CMPB se R4, XWBSB_STA(RS5) : New state ? 
90 BEQL : If not, branch 
91 BSBB NEW _STATE :; Enter new state 
3 10$: BRB NETSEVENT ; Process new event 
94 NETSPRE_EMPT:: ; Pre-empt the current event 
95 BSBB CHKRETADDR :; Validate state of stack 
38 BRB NETSEVENT ; Process new event 
98 CHKRETADDR: ; Checks return address to trap bugs 
99 PUSHAB B*CHANGE STA 3 Prepare for next instruction 
00 CMPL (SP)+,4(5P) :; Is state of stack correct? 
01 BNEQ 5$ 3; If NEQ then no 
§ MOVL (SP)+, (SP) ; Overlay return address 
RSB ; Return 
2 5$: BUG_CHECK NETNOSTATE,FATAL 
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O08 » SBTTL NE TSEVENT - Event dispatcher 


We ORY ES - 0 
VO4=- NET 


2a- 


This is the state cone event dispatcher used to determine what is to be 
done and what state the XWB is to enter next. An event only has meaning 
within the context of : XWB. 


INPUTS: R10 Preserved for call to action routine 
RG Available for the event dispatcher's exclusive use 
R8 Preserved for call to action routine 
R?7 Code of the event to be processed 
R6 If fecetves Eptees event then Tranport's IRP address 
If ‘‘startio’’ event then UCB address 
R5 Address of XWB 
RG Scratch 
f received message event then scratch 


If ‘‘startio’’ event then Q10 IRP address 


R2 If received msg event then message bytes not yet accounted f 
If “‘startio’’ event then scratch 
R1 If received msg event then ptr to first unprocessed byte in 
If ‘‘startio’’ event then scratch 
RO Scratc 
OUTPUTS: RO Status code from the action routine to be returned to 


the caller of the event dispatcher. 
Only R6 and R5 are preserved. 


Oe De Oe Oe Oe Oe Oe Oe Oe Be Oe Oe Se Se Be Se Se Se Se Se Se Se Se Se Se Se tee 
= 
Ww 
— 


ASSUME XWBSC_NUMSTA EQ 8 
NETSEVENT:: Process new areas 
noves. XWBSB_STA(RS) ,RO Get current sta 


: Assume quadword per event 
NETSAB_STTABLR7],R4 Get event block. eddress 


59 1E AS) QA 
54 FDDD CF47 8 7E 


HD DPPDAAAAPA AA AAA A AA AAA AA AA AA AA AAA AAA AAS 


BEES FWA AANA ANIA PIPIPOPININININI IN 4 OO ee 


1A. ANA AI AIA AAAI AAAI AAI AI AAAI NIAAA AAA A AAIAAA TD 
WOOO CDOOOOOODOODOOOOOVOOODOOOOOOOOOOOOOOOOOO 
AMEN © OOO NA UE WN O OD NOUS WIN OOONOULS WN 


Pe To ot oat oak oat “al “al oak oak “ah Ah AL Ah Ab ah sb ah desl sb Abra dh abr dh dh ah db db dba db db dh ah db db db ab dh abe db db ahead 


CGOOGOOOCOSOOOOOOCOOO OOOO OSOOOOSOSOSOSOSOGOOOCOOCOOOOOOOOOOOOOOSOOOOOOOO <7 


44 GA MOVZBL Get table ent 
54 59 00000060 8F CB 4% BICL3 #NETSM_STAMSK,R9,R4 Get action routine index 

C 9% : 
C 47 : Dispatch according to the event code. The action routines 
: 338 3 can assume the following : 
: 920 : Inputs: 
C 828 : R10 Parameter from caller to action routine 
.. & ; R9 State information -- not to be touched 

6C 954 : R8 Parameter from caller to action routine 

6c 955 3 R7 Event code 

6C 3e9 : 8 Varies with event 

6c 95 : R XWB address 

6C 228 : R4 Scratch 

6c 95 3 R3-R1 Varies with event 

6C 4 : & Scratc 

3 30 : (SP) Return address 

6¢ 308 : Returned values: 

6C 964 3 


oan — 
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C 5 ; R8,R7 Garbage 
ef seg 3 R6,R5 Preserved 
C + : R4-R1 Garbage 
+3 369 $ RO Status to be returned to caller of dispatcher 
6C 970 : 
0008 30 6¢ 44 BSBW ACT_DISPATCH ; Call action routine 
6F 378 CHANGE _STA: ; Change logical-Link state 
0 EF of 974 EXTZV #NETSC_ACTBITS,- 3 
54 59 + Wee #NETSC_STABITS,RI,RS 3; Get next state 
16 AS 86540 O91 0376 976 CMPB saR4G, XWBSB_STA(R5) ; New state ? 
9 13 0378 97 BEQL Ef$SCH_ASG : If EQL no, schedule message xmission 
é 10 7A 378 BSBB NEW STATE 3; Change to new state 
2 11 p re 4 BRB NETSSCH_MSG ; Schedule message xmission 
7E 981 
Oe i NEW_STATE: ; Change to new logical-Link state 
7E 984 : 
$37 985 3 Clear PROGRESS since we are changing states. The only exce gions 
037E oa8 3 are if we are coming out of the “closed’’ state (since PROGRESS has 
O37E 98 : been setup to the correct value by the previous action routine) or 
O37E 988 ; we are entering the ‘connect ACK received’ state (since we the 
O37E 989 3 outge ing Link timeout period is tied to the receipt of a Connect 
O37E 990 : Confirm, not a Connect-ACK). 
ie 
00 91 O3S7E 99 ¢MPB #XWBSC_STA 1 ; Coming out of the ‘‘closed’’ state? 
1E aS 8 38 994 XWB$B_STATR : 
0 13 ; 995 BEQL : If EQL, PROSE S was ,already init'd 
54 0 91 0384 99 CMPB #XWBSC_STA_CAR,R4 : Entering “"CAR’’ state? 
0 13 8 7 99 BEQL 10$ ; If EQL yes, do aot re-init PROGRESS 
52 a5 B4 9 99 CLRW + te pocene sein? : Init O ofote count 
16 AS 54 90 8 C 999 10$: MOVB 4, XWB$B_STA(R5) ; Chang ate 
AA 90 1000 BICW axcasn aE aie : Always clear ‘‘timer id valid’ and 
0391 49 “STS_ Bis" : “disconnect pending’ flags 
OE AS) (09 0 4 : O “STSTRS) : 
10 AS FD93 CF44 AA 0 94 190% BICW NETSAW_F FLG_CLRMCR4],XWBSW_FLG(RS) : Clear indicated flags 
10 AS) =FD7C CF44 a + 4 bist NETSAW_FLG_SETMCR4],XWBSW_FLG(R5) ; ze indicated flags 
; Done 
O3a8 1009 


nom 
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2 IO 


OODSGOGOOOOOOOOGOCOOCGOCOCOOOOCOOOOCOOOOOOOOOOOOO 
BEREAN rnroponononononononun 


-_ 


» SBTTL NETSSCH_MSG - schedule message transmission 


The following flags are used to cause control messages to be setup when the 
control weosses cell in the XWB becomes available. As each message is 
entered into this contol message cell, the corresponding bit is cleared. 


These flags are Listed in the order of their priority. 


XWBSV_FLG_TBPR = Set whenever the receive back pressure state needs to 
be toggled. 


XWBSV_FLG_IAVL = Set whenever a new xmit interrupt IRP makes it to the 
head of the LSB queue and the partner's flow control 
on the INT/LS subchannel will let us send the message. 


XWBSV_FLG_SIFL = Set whenever an INTERRUPT message has been sent to the 
user's mailbox. 


XWBSV_FLG_SDFL = Set whenever the inactivity timer fires in order to 
maintain a minimal amount of traffic on the Link to 
see if the remote node is still active. 


Whether or not a new Link-service/Interrupt message is setup in the XwB 
cell, XWBSW_FLG(R5) is scanned to see if any work needs to be done. If 


so, an he XWB fork block is not in use, control is passed to 
NETSSOLICIT. 
INPUTS: R5 XWB address 
R4-RO Scratch 
OUTPUTS: R4-RO Garbage 


ALL other registers are preserved. 


ETSSCH_MSG: : :; Schedule message transmission 


AANA ANI AINA AINA NWA AIAN AIA AAAI AAI AAAI AAAI AAAI 
>>>rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrri-7- 


OWNWIWIWIAWNA NAAN AWA AIAN AINA AINA WAIN NAINA AAA 


4+ owom—m 
om fOOWwW>P> 
La 


Woe 


SGOOSOOOOOOOCOCOCOCOOC COCO OSOOCSOOCOOCOCOOCSOOCOOC OOOO OOOOOOOOOOOOOOOoOO Aas 
a cd ed ed ae ee a ee ce eae ee ee ed ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
MEAN OO ODNAUE WN 0 OD NAME WIN $$ O ODNAUE WN $$ O ODNAULS WN (OOOO W000 


PEASANT 


AASSOOOOo> 


ONTO NINES 


ASSUME XWBSV_FLG_IAVL EQ 1+XWBSV_FLG_TBPR 
ASSUME XWBSVTFLG-SIFL EQ 1+XWBSV~FLG-IAVL 
ASSUME XWBSVIFLG-SDFL €Q 1+XWBSV7FLG-SIFL 


FFS #XWBSV_FLG_TBPR,#4,XWBSW_FLG(R5),RO ; Find message to build 
BEQL 90$ :; If EQL then none |. 

BBS #NSPSV_FLW_INUSE ,XWBSB_X_FLW(R5),90$; If BS, msg cell is in use 
MOVB A#NSPSM_FLW_INUSE ,XWBSB_X_FLW(R5) ; Claim the cell, clear flags 
CLRB = XWBSB_X_FCWCNT(R5) Init flow request count 


MOVAB evest ob 18s) R2 Setup LSB pointer 


INCW LSBSW ee Get next sequence number 
BICW #*x<F000>, LSB$W_LUX(R2) Mask off junk bits 
MOVW LSBSW Nght ) Es63¥ HXS(R2) It's sendable now 
BBCC RO, XWOSW_FLG(RS) ,208 Clear the work bit 


the ES 


13_0€ 


OE AS 


6c 


A 
0 
A 


50 
no 


0040 8F 
50 


5 


AS 


AS 


6D AS 
OOFD C5 
OE 


8 
100 8F = AB 
5 50 
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208: SOISPATCH RO,- ; Dispatch on work bit 


' «7 
x 7 


:; INTerrupt msg 
; INTerrupt flow control msg 
; DATA flow control msg 


v 


Fall thru 
RO=XWBSV_FLG_TBPR 


Setup for DATA channel control message to toggle the local 
receiver back pressure state 


OVB #NSPSM_FLW_XOFF,RO 
BCS #XWBSV"STS-RBP, XWBSW_STS( 
ICW  #XWBSMZSTS-RBP,XWBSW_STS ( 


#NSPSM_FLW_XON,RO 


01 39 3; Setup for Bs, flow"’ monsens 

06 € 3; If BC, not back-pressured off 
BA ; Mark receiver as having its 

; back-pressured relaxed 


02 90 Setup for ‘'start flow’’ msg 


= 
oO 
<= 
@w 


Force a NAK on the DATA sub-channel in order to reset its sequence 
numbers. ererner tty. NAK's are undesireable in a routing 
environment since they could contribute to ag naghee problems. 

But that is generally true for NAK's sent due to receiving messages 
out of order (a message received out of order is often due to 
network congestion loss of an earlier packet). 


The NAK is not absolutely necessary, but failure to send it wil 
mean an inordinate delay since the remote sequence numbers will 
not be reset when back-pressure is subsequently relaxed (only a 
NAK or timeout resets the sequence numbers). 


NOTE: Since XWBSM_FLG_SDACK is less than XMBSM_FLG_SLI, the 
NAK will be sent just before the back-pressure message. 
This is the desired order. 


08 SW #XWBSM_FLG_SDACK,XWBSW_FLG(R5) ; Force NAK on the DATA channel 
SW #XWBSM-STS DITNAK,XWBSW_STS(R5) ; in order to reset it 

SB RO, XWB$B_X_FLWC(RS) ; Set remaining control flags 
CC #XWBSV_FLG_SIFL,XWBSW_FLG(R5) ,80$; Piggy-back INT flow control 


: message if possible 


30$: 


DD WD ee © + Oo Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe He Oe Se Se SH Be Se 


0D 


40$: 
Setup Interrupt flow-control message. 


04 B M#NSPSM_FLW_LISUB,XWBSB_X_FLW(R5S) ; Flow control for LI channel 
B  XWBSB-X FCWCNT (RS) ; Ask for one more INT message 
B EvOST_LT*LSESS_R_CHBQUO(RS) ; And allow it to be receive 


; Schedule msg for transmission 


— 0.000 
—AOow 


50$: 
Setup for Interrupt message 
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of AS 28 88 BISB #NSPSM_ re INT ,XWBSB_X_FLW(RS5) : t "Link service’’ message 

10 A dO MOVL LSBSL_ D(R2),R $ Get RP 
20 AO 0040 BF AA 80s BICW #lO$M LINTERRUPT. {RPSw_ FUNC(RO) ; indicate state change 


Schedule the message for transmission. 


L1,XWBSW div R5) : We've got a message to send 
DFL,XWBSQ_FLG(RS5) : Whatever has just been built 
: satisfies the need to send the 


backround inactivity message 


BISW #XWBSM_FLG_S 
BICW § 


0 
F #XWBSM_FLG_ 


Se 


OOOOOOOOCOOCOCOeSOoCOoOoOOOOOoooSo 


1c AS 1 
1¢ AS 4000 8 


Unless there are any wait conditions pending, solicit permission 
from the Routing Layer to transmit a message. 


f 


OA 00 EA #0, #XWBSV_FLG ge - 3; Get work bit 
50 1C AS WBSW"F : 
OE FDBA CF 50 €1 BBC RO NETSOL POORKBI Ts. Br if no work to be done 
08 OE AS 02 E2 BBSS #XWBSV_ STS- _Oh« et ie + 1008; If BS, fork block in use 
55 oD PUSHL R5 ; Save XWB address 
FBCB' 30 BSBW NEPS$SOLICIT 3 Get permission to transmit 
55 8ED0 POPL RS 3; Restore XWB address 
05 100$: RSB 
AOE AS 03 €1 200$: BBC #XWBSV_S 
0381 30 BSBW NETSCAK_ Is XWB ready for disconnect 
F450 «ED BLBC 100$ ; If LBC then no 
FEAS 31 BRW NE TSFORK 3; Attempt to resume disconnect 
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i kk kk ak kd dt td 
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ACT_DISPATCH: 
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SCH_MSG = schedule message transmiss 
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479 1188 »SBTTL ACTSNOP - Null action routine 
479 1190 .SBTTL ACTS$BUG = BUG_CHECK action routine 
479 1191 .SBTTL ACTSLOG - Log=event gcsien. Four ine 
479 1136 -SBTTL ACTSNOLINK - Report ‘’SS$_FILNOTACC' 
of 113? .SBTTL ACTSSSABORT - Abort Q10 nny Link was disconnected 
05 0479 1195 ACTSNOP: RSB 
ge 1139 4 ACTSBUG: BUG_CHECK NETNOSTATE,FATAL 
01 47E 1197 ACTS$LOG: NOP 
01 O47F 1198 NOP 
0480 1199 
01 pees 1 bY NOP 
01 481 1201 NOP 
01 tt 1 O NOP 
05 0483 120 
0484 spe 
0484 1205 
38 AS OOAC BF 3C 0484 1206 
05 048A 1207 
0488 1208 
0483 1209 ACTSSHRLNK: peers 
38 A3 2c 1519 ACTSSSABORT: pre WL #SS$_ABORT, IRP$L_IOST1(R3) 
\ei¢ 
121 


RSB 
ACTSNOLINK: MOVZWL #SS$_FILNOTACC, IRP$L_I0ST1(R3) 
{ 
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138 1215 .SBTTL NETSSTARTIO - Start 1/0 operation 
290 1519 5 
490 1218 ; This routine is entered when the associated unit is idle and a packet 
0490 1219 ; is available for processing. The IRPSL_WIND field is used to locate the 
ee 1220 ; associated XwWB. 
490 1221; 
0490 1 § ; 
9h 1 3; INPUTS: RS UCB address 
0490 1224; R4 PCB address 
0490 1225; R3 IRP address 
8438 1 § $ 
49 1 ; OUTPUTS: wee TBS wee 
0490 1228 ; 
0490 1229 ;- 
0490 1230 NETSSTARTIO: 3; Process next IRP 
OFEO 8F BB 0490 1231 PUSHR #*M<RS,R6,R7,R8,R9,R10,R11> :; Setup ‘‘event'’ context 
10 0494 1 $$ BSBB PROC_10 ; Process the 1/0 function 
05 55 E€8 0496 123 BLBS R5,20$ : If LBS, no event to process 
5B 4 «(0499 «1234 CLRL —seaR14 : Say ‘can't go to IPL 2" 
FEB8 30 0498 1235 BSBW NETSEVENT ; Process event in R7 
OFEO 8F BA +H 1538 20$: POPR #*M<R5,R6,R7,R8,R9,R10,R11> ; Return to UCB ‘fork’ context 
53 58 AS DO O4A2 1238 MOVL UCBSL_IRP(RS) ,R3 3; Get IRP 
1F 13 Q46A6 1239 BEQL 50$ : If EQL then its been queued 
04A8 1240 3 or suspended, start next 1/0 
04A8 1241 3 
04A8 1906 : : 
04A8 124 : Deallocate misc. buffer 
04A8 1244 $ 
04A8 1245 ° 
OC 2A A303) «ET «04A8 «(1246 BBC #IRPSV_COMPLX,IRPS$W_STS(R3),40$ ; If BC, IRPSL_DIAGBUF does not 
O4AD 1247 3 point to a NETDRIVER buffer 
50 4C A3 DO Q4AD 1248 MOVL IRP$L_DIAGBUF (R3) ,RO ; Get buffer 
06 18 0481 1249 BGEQ 408 : If GEQ then none 
4C AS D4 0483 1250 CLRL IRP$L_DIAGBUF (R3) ; Detach it 
0895 30 0486 1921 BSBW NE TSDEALLOCATE ; Deallocate block in RO 
0489 1 26 40$: : 
0489 125 3 
0489 1254 ; Start next 1/0. 
0489 1255 : 
0489 1536 2 : 
50 38 A3 DO 0489 125 MOVL IRP$L_IOST1(R3),RO ; First I0SB longword 
51 44 AS DO Q4BD 1 28 VL UCBSL_DEVDEPEND(R5) ,R1 : Second I0SB longword 
4C1 1259 REQCOM ; Complete 1/0, start next IRP 
53 4C€C B85 OF O4C7 1260 50S: REMQUE @UCBSL_IOQFL(R5) ,R3 ; Get next IRP 
6 1D QO4CB 1261 BVS : If VS then none | 
00000000 ' G+ 17 rt] 1 6¢ JMP G*IOCSINITIATE ; Deliver IRP to driver 
64 AS 0100 38F AA 04D 12635 60$: BICW #UCBSM_BSY ,UCBSW_STS(R5) ; Free up the UCB 
05 0409 1264 RSB ; Return to Exec 
4DA 1265 
4DA 1 66 PROC_I0:; 
4DA 126 : ; 
4DA 1 08 ; Move the UCB to R6 and the XWB (if any) to R5 and dispatch 
4DA 126 : on function code with: 
04DA 1270 : 
O4DA 1271 : R10-R7 Scratch 
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4DA 1 8 : R UCB address 
4DA 127 ; R XWB address if LBC, else garbage 
4DA 1274 3 R IRP address 
4DA 1275 $ R2-RO Scratch 
4DA 1 6 s 
4DA 127 . 
5655 9 4DA 1 28 MOVL RS, RO ; Copy UCB to sate register 
55 18 a3 DO O4DD 127 MOVL ios WIND(R3) ,R5 ; Get XWB, if a 
0 19 Q46E1 1280 BLSS ; If LSS, XwB Ad in system space 
55 oi c8 Ques 1281 BISL : Else, invalidate window ptr 
38 A OOF4 8F 3C 0466 1 : 10$:  MOVZWL asét> ILLIOFUNC,IRPSL_IOST1(R3) : Assume fct not supported 
57 20 A Freethce 8F cB bees } be BICL3 Pe eTORN _FCODE>, IRPSQ_ FUNC (R3) ),R? ; Get code without modifiers 
beee : # SDISPATCH R7, TYPE=B,- : Process 1/0 
pre 1287 “£108. ACCESS oo Bee 5 i ; Connect Requests 
O4F5 1288 <10$_DEA ACCESS, NETSDEACCESS>,- ; Disconnect Requests 
O4F5 1289 <10$_ ACPCONTROL, NETSCONTROL>,=- ; ACP Control function 
O4F5 1290 ; Else, fall thru 
55 01 p00 0507 1291 MOVL #1,R5 : Set low bit to prevent event 
05 Bape 1636 RSB ; dispatching and return 
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Se) - pe cnet Sessio 
v04-000 NETSFDT_SETMODE = Process IO$_SETMODE re 5-SEP-1984 NETACP.S REIN NET 
208 ] 33 » SBTTL NETSFDT_SETMODE = Process IOS$_SETMODE request 
50B 1 39 : 
50B 1 3 3 tee ths eee 
208 1880 : 
508 1 0 NETSFDT_SETMODE: ; Process I0$_SETMODE function 
51 6C 0 0508 1 § MOVL P1(AP),R1 3; Get characteristics buffer 
0B Ss Baek 130 BEQL 10$ ; If EQL then none 
0510 1304 IFNORD #8,(R1),50$ ; Br on access violation 
44 a5 06 A1 00 0516 1305 MOVL. 4(R1),UCBSL_DEVDEPEND(RS) + Set mailbox mask 
50 18 A3 oi cB 0518 1 06 10$ BICL3 4#1,IR RPSL” BUIND (R3) ,RO : Get XWB address 
0 18 0520 1 BGEQ © 408 : If GEQ then none 
$855 1309 ; 
05 1310 : This was used for ‘‘maintenance’’ mode. Now available for 
05 1311 : future functions. 
$855 1318 
51 44 A5 00 05 1314 40$: MOVL UCB$L_DEVDEPEND(RS) ,R1 : Get device dependent info 
50 01 3C 0526 1315 MOVZWL S“#SS$_NORMAL,RO ; Setup I/0 status 
00000000 ' GF 17 B25? } i JMP G*EXESFINISHIO ; Return success 
> = Ss Oa¢t 1318 50$: MOVZWL #SS$_ACCVIO,RO ; Setup 1/0 status 
00000000'GF 17 0532 1319 JMP G*EXESABORTIO : Abort 1/0 
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SBITL NETSFDT_CONTROL = IO$_ACPCONTROL FDT processing 
SBTTL NE TSCONTROL - IOS_ACPCONTROL ‘'startio’’ processing 


The FOT routine steply routes the IRP through the Exec to the ACP. The Exec 
builds a ‘‘complex buffer’’ describing the control function. The ACP will 
requeue any IRP to the driver if it does not recognize the control function. 
The driver has been designed to handle some of its own control functions 
since many are protocol or control block format specific. 


INPUTS: R5 UCB Address 
RG PCB Address 
R3 IRP Address 

OUTPUTS: R5 Unchanged 
RO 1/0 status 


FDT phase for IO$_ACPCONTROL 
Zero misc buffer pointer 
Always clear interlock flag 


ETSFDT_CONTROL: 
4C Ad D4 CLRL 
18 A301 «OCA 


40 Ad. 66C BS SO7D 
"GF 


IRP$L_DIAGBUF (R3) 
BICL #1, IRPSL_WIND(R3) 
ASSUME PHD$Q PRIVMSK EQ 0 ; 
MOVQ  aPCBSC_PHD(R4), IRPSQ_NT_PRVMSK(R3): Store privilege mask 
JMP G*ACPSAMODIFY : Continue in EXEC 


00000000 17 
> INPUTS: eet ths eee 
3 OUTPUTS: ett ths tts 
NETSCONTROL : ; ‘'Startio™ for 10$_ACPCONTROL 
08 2A AS. 03 €E1 BBC #IRPSV_COMPLX, IRP$W_STS(R3),10$ ; If BC, part of SCANCEL 
50 2C B3 00 MOVL @IRPSL_SVAPTE(R3) ,RO ; Get ptr to window descriptor 
60 04 CLRL (RO) 3; Don't affect window upon 
28 BRB 50$ : 1/0 completion 
10$: : 
: The user is getting footy to issue an IO$_DEACCESS Q10 to break the 
3 Link. In order for the IO$_DEACCESS to be sent to the driver, the 
3 channel's outstanding 1/0 count (CCB$W_IOC) must be zero. Hence the 
: receiver must be run-down and any outstanding receive IRP's aborted. 
38 As 013 MOVZWL #SS$_NORMAL, IRPSL_IOST1(R3) ; Set 1/0 status 
55 01 CA BICL #1,R5 3; Clear interlock bit 
2F 19 Biss = 708 : If LSS then valid XwB 
: Scan LTB to find XWB with an access pending for this channel 


SOOOOOCOCOSOOOCOCSCOSOGOOCOCOCSOSOOCOOOCOCSOOOOSCOOCOOOOOOCOOCOOOOOOOOOOOOOCOOO C3 
DDD DPLPLDP DADA Darr Be BB BB BE AIAN AIAN AAAI AAA AIA AAAI 
PAL OOCCCCOMD NVNNNNNNNNVIG TT DS PPP PY YP PP LMM DW COCO co co Co co Co COGN CO CN CN CD CD CD CD CO CD CDCD 
a a a et ee ee ee ee ee ee ed od dd dC HY 
AWNWAWNIAIAIAI ANIA NNIN IAI NAIAI AAAI AIAN AANA AWWA AIA AAI AI AIA AAI AAAI AAAI 
SINNED DED DED DDD DDE TTT BB BS BE BE ANI WII rononorornonnn —O 
CONAWNE WIN @§ OC OD NAU EWN 9 OO NAME WIN 9 OD NA UE WN 0 OD NOAM EWN CO OONOAUE UMD 


50 34 A6 00 MOVL UCBSL_VCB(R6) ,RO ; Get RCB 

10 1 BEQL 50$ : If EQL then none 
50 24 AO 00 MOVL RCBSL_PTR_LTB(RO) ,RO 3; Get LT 

OA 1 BEQL 50$ : If EQL then none 


we OR YRES - PECnet Session Control Mod 
v04-000 NETSCONTROL = IOS_ACPCONTROL 
55 OA 9 5 7 MOVA 
55 gC A D 256 20$: MOVL 
4 1 574 BNEQ 
55 1 . 278 50$: BISB 
aa RSB 
50 0080 C5 00 037A 60$ MOVL 
EF 1 57F BEQL 
0c AS OC AO D1 0581 § CMPL 
EB 12 05 § BNE 
28 AS 628 AO OBI SOC+*OS 8 CMPW 
a. 82 D 9 BNEQ 
S8F 91 70$: : 
F 9 
9 
4 9 
9 
9 


Oa a kk kk kk kd dd dt 
MEAN = SO OONAUE WN OC OONAUS WN "OUOONAULSWN—O0 0 


MAMMA MMA AIT UU 


OOOO OCQoooooooooooooooooooO 
> 


8F 
F 
F 
8F 
8F 139 
8F 139 
8F 139 
8F 140 
8F 140 
8F 140 
8F 140 
8F 140 
8F 140 
8F 140 
OB 0O0E AS 04 €0 8F 140 BBS 
038A 30 94 140 BSBW 
50 Be 97 140 CLRL 
0235 0 99 141 BSBW 
D7 50 8 9C 141 BLBS 
57 OD C 9F 141 
05 ag 41 
A 41 
3 141 


80S: MOVZWL #NETEVT$_CANLNK,R7 


——————————— 


H 14 
ule for NETD 16-SEP-1984 01:32:10 VAX/VMS Macro V04-00 Page 
Sacto” p mia 7 $3:36:26 ENETACP. SREINETDRVSES MAR: 1 : 
B =-XWBSL_LINK*+LTBSL_XWB(RO) RS ; Prepare for XWB scan 
XWBSL-LINK(RS) ,R5 3; Get next XW 
0$ ; If EQL then none left 
#1,R5 ; Prevent event dispatching 
; Done 
XWBSL_IRP_ACC(RS) ,RO ; Get suspended IRP, if any 
; If EQL none, Loop 
RPSL_PID(RO), IRP$L_PID(R3) ; Belong to this process ? 
; Loo 
| Sa ceatetacd. citrine txt 3 Sone channel ? 
0$ ; If NEQ, loop 
The transmitter is not automatically run-down since the user may be 
preparing a ‘‘synchronous’’ disconnect -- i.e., disconnect after the 
final data segment has been ACK'd. The manner in which pipelining 


has been implemented allows user transmit IRP's to be sent to 1/0 
completion before the gant ge tae CXB's have been ACK'd (or even 
sent). Therefore, the user might issue a call to $CANCEL mistakenly 
Shy that the final message has be ACK'd. Hence $CANCEL should 
allow the transmit CXB's to be ACK'd in their normal fashion. 


Therefore, drain the receiver of all IRP's and CXB's. If there 
are any transmit IRP's on the queue, then the disconnect is not 
synchronous, and the transmitter queue must be drained as well. 


#XWBSV_STS_CON,XWBSW_STS(R5),80$ ; If BS, IO$_ACCESS pending 
DRAIN_RCV ; Drain the receiver 

RO ; Init RO for CHK_X_IRP call 
CHK _X_IRP ; ‘s 


BeBe Sete te eee 
> 
=) 
“=< 
= 
3 
oe 


: no 
: Force Link to break 
; Done 


3) 
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ACCESS = 10 
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3 Da Ser ae ate tata itt oe a 
$ T processin 

$- artio” processing 


| 

NETSFOT ACCESS passes the IRP through the EXEC, where the user parameters | 

are packaged into a ‘complex buffer”, to the ACP, The ACP reads the user | 
connect _info to build an Internal Connect Block (ICB) which it attaches to 

the IRPSL_DIAGBUF field of the IRP and requeves the IRP to the driver. The 

role of the ACP is to lookup default access control (username, password, 

account) information in its data base and to translate node and object names 

| 

| 

| 


Se 


OONOA UE WN O OONOUE Wi O0OOn 


to numbers. 


NETSACCESS reads the ICB and determines the type of connect. It builds an 
XWB for connect initiate events and locates an already existing XWB for all 
others, NETSACCESS stores the appropriate event code in R7 and returns 
expecting the caller to call the event dispatcher. 


It should be noted that the size of the XWB is not charged against the user 
byte count or byte Limit quotas. It is assumed that these quotas are at 
least partly used to Limit a run away process and that the file quota of a 
process, against which logical-links are charged, is a sufficient mechanism. 


MAAN AUT 


>>>r>rrrrrrrrrrrrrrrrrrrrrrrrrr>r>r>r>r>,r i 


COW AIA AIWI ANNAN WWII N NINN AINA AIAIAAIANANNWAA D> 


INPUTS: eet ths ete 
OUTPUT: ete ths tte 


Bere Se Sees Se Se Ge Ge Se Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se SeSetse «& 


NETSFDT_ACCESS: ; IOS_ACCESS ‘‘FDT'’ processing 
ASSUME PHDS$Q_PRIVMSK EQ 0 
MOVaQ @PCBSL tT le eal eltmamta 3; Store priv —— in IRP 


CLRL IRP$L_BIAGBUF ( 3 Indicate no IC 
JMP G*ACPSACCESSNET 3; Continue in EXEC 


40 AS 6C B4 
4C A 
00000000 ' GF 


>> 


7D 
D4 
17 


cc ec ee a ee ee me me ee a ee ee ce 8 ed ed od od od mw 


PREP ERE EEE E PEEP PEEP EPP PPP PPE PEPE PPP PPP PPP PPP 


SSS SDP DDD DPD PAD PIII ES BEEP PLE 


IO$_ACCESS ‘“'startio’’ processing 
Get CCBSL_WIND image descr. 
Init CCBSC_WIND image 

Mark for write back 

Write back one descriptor 

Copy UCB addr for subroutines 


GET wanse 

BISW #IRPSM_FUNC, IRP$W_STS(R3) 
MOVZWL #1, 1RPSL_BCNT(R3) 

MOVL R6,RS 

Copy IRP address to safe reg 
Get ICB pointer 

If GEQ, its an error code 


MOVL R3,R8 
MOVL JRBSL_DIAGBUF (RB) .R4 
io BGEQ 0$ 


; Get local Link address 


MOVZWL ICBSW : 
8 XwB 3; Find associated 


LOCLNK(R4),R3 

OCLNK 

R5,60$ Br if XWB was not found 
XWBSL_PID(RS), IRPSL_PID(R8) 


; PIDs match ? 


SOOOOOOCOOOCOOOOOOCOCOCOOO OOOO OCOOOO OOOO OOCOOCO OOOO OOOCOOOO 
ra ab ah ah ah sb ah Ab th Ab db ab Ab Ab Ab AD AD Ab th beh ebb thet bh ah ab ah ahval al eal eal eal 
WRI 9 ONAL WIN $$ O OD NAMES WIN" OVIDNAULS WN oO 

z 

m 

~ 

bad 

> 

o 

o 

m 

wn" 

yn 

< 
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*—m > Pr PP SP POFf—--mMmPror-- 


—woonrm 


OC As 4 AS 
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_— . % d9 74 BNEQ : Br if they don't 
3c AS B DB 75 TSTwW EUBSW_RERLWK(RS) 3; Does remote tink id exit ? 
0B p 6 BNEQ 0$ 3; Connect Confirm if NEQ 
£8 : 
E tS $ Connect Initiate 
1 : 
04 AG 01s ASI i Avow3 4) gisert TIM mae ~ ; Setup outbound connect timer 
50 AS BSW _TIAMER(R ; (+1 for possible clock skew) 
57 OF 9A 4 MOVZBL PNETEOTS _CIA,R7 : Set ‘connect initiate access’ 
0B il 8 5 BR B 50$ 3; Finish in common 
8 § 30$: ; 
0 8 : Connect Confirm 
0 4 : 
57 10 9A 8 91 40$: HovzeL Bly CCA,R 3 Set ‘connect confirm access’ 
03 20A8 08 €1 O 3¢ B #10$V_ABORT, iRpsw. FUNC(R8),50$ ; If BC, not Connect Reject 
or)6Ctlié«éSSYS 9A 0 9 MOVZBL INETEOTS. CRA,R R7 3; Set ‘connect reject access’ 
8 3¢ 50$: : 
0 96 ; Because the low bit of R5 is clear, the XWB will considered to 
8 4 $ be valid and the event in R7 will be processed. 
9 : 
0 M 
4 
5 
6 
7 
8 
9 
0 
4 
5 
6 


I BOOOCO TN TTT TT HHH HMMM MMMmmmmmmnecn 
a ee ee ed dd od ed dd dd ed dd od od dd 8 
PUPP PV PV PUSS EBS BS BB PPP PPP PPP PEP PPP PPE EE 


fe ool onl onto al al al ab abrab abrab ab eabvabvalealvalvalvalvalvalvaltalalvalvalvalealtarwaleaitalealeaval 
DOE EWOS OPH TPP PP POSCSOOOOOOWMDIWIWIAIIWDOES 


0 g 
> FS pe @ 0 OVL R8,R3 ; Setup IRP address 
05 8 4 RSB ; Return with LBC in R5 
0 03 ; 
8 3 Unsuccessful access 
54 0840 8 3¢ 0 0 S5$: MOVZWL #SS$_DEVALLOC,R4 : Setup e error code 
3: Continue 
54 20D0C 8F 3C¢ 6 08 60$: MOVZWL #SS$_CONNECFAIL,R4 ; Setup error code 
> 2 8 @ 09 80$: MOVL ¢ 3; Setup — pee 
38 AS = 54S sC«OO 1 MOVL R4, IRP$L_IOST1(R3) ; Store er code 
55 01 pd 0 1 MOVL #1,R 3; Tell CLEANUP ACCESS ‘'no XwB"’ 
0201 30 0 1 BSBW § CLEANUP_ACCESS : Restore quota 
05 8 ! RSB ; On return goto REQCOM 
8 } 100$: BUG_CHECK NETNOSTATE,FATAL 


i ———— 
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we ORY ES 
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o 
“co 
em 
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Pw 
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18 -SBTTL ACTSINITIATE = Connect Initiate action routine 
e SBTTL ACTSCONFRIM = Connect Confirm action routine 


These action routines resume processin ie event setup by NETSACCESS. 

ACTSINITIATE assumes that a Connect Initiate message will be built 

and sent. ACTSCONFIRM is used when a received connect is being either 
syceptes or rejected and assumes that eihter a Connect Confirm or a 

Disconnect Initiate message will be built and sent. 


INPUTS: Re Scratch 
R Event code 
R UCB address 
R XWB address 


R4 Scratch 
R3 IRP address 
R2-RO Scratch 


OUTPUTS: R8,R7 Garbage 
R6,R5 Preserved 


ii i a ak ak ak a ed ss td = = a a a 8 8 


BDBOOWOO SP POWNS SYP YP YY \ \ \ P P 000000000 00900 09 09 09 09 09 09 0909 09 00 CD CD CD CD CD CDCDCDCD 


DOOOOOOOOOSOOOOOOOSOOSOOOOSOSOSOOSOOSOOOOOOOOOOOOOOOOOOOO 
DDS OS OS DS DS DS OS DS OS OS Os DS DS DSO DS DD DSP AA AAA AAA AAA AAA AAAAO 


s 
E 
1 
1 
1 0; 
! 1 
: ¢ 
1524 
14 
HE 
1359 
13 
1530 
\ 1 
1338 
1534 
1338 : 
1839 : 
1538 ; 
1539 ; R4-RO Garbage 
HE 
1346 ACTSCONF IRM: : 3; Connect Confirm or Reject 
35 10 1307 BSBB SETUP_XWB 3 Do common setup 
1545 : 
1546 3 If the remote end of the Logical-Link is on the local node then 
1547 : use the same ‘'path’’. This allows loopbacked Lines to be used for 
1548 ; all sppicens “Link traffic in both directions -- which seems like a 
1549 : sensible thing to do even though this may be a depature from the 
1320 3 Network Managenent architecture. 
155 : 
38 AS sBS 138 TSTw XWBSW_PATH(RS) 3; Has a path been chosen ? 
, 1554 BNEQ 208 3; If N NeQ then yes 
52 30A5 00 1555 MOVL XWBSL_VCB(R5) 3; Get the RCB 
OE A2 3A AS 2 1326 CMPW XWBSW “RERNOB YRS, RCBSW_ADDR(R2) ; Is the remote node us? 
16 2 132 BNEQ 208 ; If NEQ no 
38 1388 PUSHR #*M<R3 R5> : Save regs 
53 3C AS 3C 1560 MOVZWL XWBSW REMLNECRSD R3 : Get remote Link i. d, 
0676 | 138) BSBW NETS$XQB_LOCLNK 3 Find corresponding XwB 
= D 1 $6 MOVL R5, $ Copy XWB address to new reg 
38 BA 1397 POPR #AA<R3,R4,RS> ; Restore regs 
95 52 «£8 1368 BLBS : If LBS then no XWB was found 
38 AS §==38 A2~=BO 1366 MOVW nvésu. _PATH(R2) ,XWBSW_PATH(RS) — : Use apartner” s path i.d. 
09 20 AS. CO E1 0640 1567 20$: BBC #10$V—ABORT IRP$W_FURC(R3), 100$ : then not connect reject 
45 1568 ASSUME NETSC"OR NORUAL "eh ; 
46 AS Bs 645 139? CLRW XWBSW~ xX REASON(RS) ; Setup disconnect reason code 
50 gl D 0648 1570 MOVa Hartt: S$_RoOR 3 getup 10SB v | 
007C Hi 648 1571 BSBW RETSCRPL Once : sone ete the. 10s ACCESS IRP 
0 oe 1378 100$:  RSB ; Done 
64F 1574 ACTSINITIATE:: : Connect Initiate request 
| 
} 
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WHee008 ACTECONERIN = Connect Confirm action rou Set 7 $3 :38:d6 NETACP.SRCIJNETDRVSES.MAR; 1 ° (41) ve 
64F 1575 SETUP_XWB: : Setup common erates 
of 86 64F 1376 “—INCW XWBSW_REFCNT(RS) Recount for accesso 
016C C5 4A D o2g 157 MOVL XWBSL sPID(RS) -XWBSS+ACBSL_PID(RS} thy specie Sorrel AST PID 
0080 cS. 53)——0s«065 1328 MOVL  R3,XWBSL_IRP_ACC(RS) : Store IRP address 
58 A6 «6024 «200650 ~=C 157 CLRL UCBSL_ IRP(RO6) : Clear IRP 170" con to prevent 
268 1580 : immedi ate /0 completion 
10 AS 5 4 660 1581 MOVL R6,XWBSL_ORGUCB(R5) 3; Setu 
54 4C AS «DO 0664 «15 : MOVL IRPSL_DIAGBUF (R3) ,R4 : Get Pca pt ptr 
4C A D4 0668 15 CLRL IRP$L_DIAGBUF (R3) ; Dett»ch it from IRP 
010C CS) ss 554)—is«éWDs«éi066BEC«CdA:‘dS 8G MOVL a XWBSL_ICB(RS) : Attach it to xXwB 
1¢ AS) «60100 8F «AB 0670 1585 BISW #XWBSM_FCG_SCD,XWBSW_FLG(RS) ; Set send message flag 
Bg Jet som 
bere 1358 : Setup pre-allocated byte quota to take upon entering the RUN state 
0676 1269 : 
0676 1591 :& CLRW XWBSW_X_QUO(R5) 3; Pre-allocate none for rcv's 
0676 1236 78 CLRW XWBSW_ R ~QU0(R5) 3; Pre-allocate none for rcv's 
0676 159 ; 
0676 1594 3 
0676 1595 : Move remainder of parameters from the ICB 
0676 1596 ; 
0676 1597 : 
38 «BB 0676 1398 PUSHR #*M<R3,R4,R5> ; Save MOVC regs 
51 7C AS = 9E 0678 1600 MOVAB ICBS$B_DATA(R4),R1 ; Get source pointer 
0660 30 O067C 1601 BSBW NETSMOV_TO_XWB- ; Move counted string 
067F 1602 ; to XWBSB_DATA... 
Q067F 1603 ASSUME ICBSC_RID LE XWBS$C_RID ; 
6F AS 0092 C4 90 bees Joe MOVB ICB$B_R ID(R4) ,XWB$B_RID(RS) 3; Move the count field 
20 0093 C4 10 2C 0685 1606 MOVCS oicese RID, ICBST_RID(R4) ,A*A® °,- 3 Move the remote 
70 AS 10 pega bt #XWBSC_RID,XWBST_RID(RS) 3; i.d. text 
38 =6BA +43 1609 POPR #*M<R3,R4,R5> : Restore regs 
50 OC A& BO 0690 1610 MOVW ICBSW. RETRAN(R4) ,RO : Get rexmt factor 
04 15 0694 1611 BLEQ 50$ : If LEQ keep default 
54 A5 50 B80 0696 1ol¢ MOVW RO, XWBSW_RETRAN(R5) 3; Update rexmt factor 
52 A5 B4 O069A 16135 50$ CLRW XWBSW-PROGRESS(R5) ; Init progress count 
38 AS 64 «BO (069D «1614 MOVW  ICB$W_PATH(R4) WBSW~PATH(R5) : Circuit to use 
40 AS 12 A4 BO O6A1 1615 MOVW ICB$W~SEGSIZ(R4) XWBSW_LOCSIZ(R5) 3; Rev buffer size 
56 AS 0E AS) «BO O06 AG 1616 MOVW ICBSWIDLY_FACT(R4), XW8SW~ LY F FACT(RS) ; Delay factor 
58 AS 10 A4 BO QO6AB 161 MOVW ICBSW_DLY_WGHT(R4) XWBSW_ DLY_WGHT(R5) ; Delay weight 
4c A5) 606 A4 BO 9680 1618 MOVW ICBSWITIMTINACT(R4S ,XWBSW-TIM~ TNACT ERS) : Inactivity timer 
0685 1620 3 
0685 1621 3 Setup TIMER and DELAY so that the Connect message will be 
0685 16 ¢ : retransmitted Pett etiow k if necessary. This is done by choosing 
0685 16 : a DELAY which will allow RETRAN retransmission before the amount 
0685 1624 : of time left in TIMER expires. 
0685 1625 : 
bee 16 § . ; 
54 AS AT? 06B5 16 HIvW3 XWBS$W_RETRAN(RS) ,- : TIMER has number of ticks 
4E AS 50 AS 688 16 3 XWBSWOTIMER(RS) .XWBSW_DELAY(R5) ; Left before timeout 
56 AS) «AG sC«O6BC O16 DIVW XWBSWTDLY_FACT(RS),- : Adjust for the ‘delay factor’ 
4E ag 6BF 1630 WBSW-DELAY (RS) : 
0 12 06C1 1631 BNEQ 70$ : If NEQ then use it 
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Wi XWBSW DELAY (R5) 
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3; Else use 1 second 
i Reset XWBSW_TIMER 
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NETDRVSES sion Control Module for NETD 16-SEP-1984 01:32:10 VAX/VMS M v04-00 P 40 
voue M Kceeee” EI 8 Bt 85:38:38 RCIN aoe , 


- Perret Ses 
NETSCMPL_ACC = Complete IOS_ACCESS, =-SEP=-19 NETACP.SRCINETDRVSES.MAR; 1 (42) 
| 
6CA 1637 .SBTTL NETSCMPL_ACC - Complete IO$_ACCESS, fill in window 
gh teas 
6CA 1820 3; The access function currently oe processed is completed. 
6CA 1641 ; If the 1/0 completion status is not successful then the window of the | 
6CA 1966 3 channel associated with the IRP is cleared. 
O6CA 1643 ; 
seh 1644 ; 
6CA 1645 ; INPUTS: RS XWB address 
O6CA 1646 ; R1 Second I10SB longword value 
Bee 196! : RO First I0SB longword value 
ata 1868 3 OUTPUTS: R1 Serbene 
06CA 1650 ; RO SS$_NORMAL 
O6CA 1651; 
O6CA 163¢ : ALL other registers are preserved. 
O6CA 1653 ; 
O6CA 1654 ;- 
O6CA 1655 NETSCMPL_ACC:: :; Complete access, fill in window 
01BC 8F BB BOCA 1oe8 PUSHR #*M<R2,R3,R4,R5,R7,R8> ; Save regs 
04 4E AS B11 OQO6CE 1658 CMPW XWBSW_DELAY(R5) 44 3; Make sure initial ‘‘delay’’ estimate 
04 1E€ O06D2 1659 BGEQU§ 30$ 3; is at least 4 seconds 
4—E AS 04 BO 06D4 1660 MOVW #4, XWBSW_DELAY(R5) : 
53 0080 C5 00 06D8 1661 30$:  MOVL XWBSL_IRP_ACC(R5),R3  : Get I0$_ACCESS IRP 
24 13 O6DD 1906 BEQL 200$ : If EQL Ehen none 
0080 CS D4 O6DF 166 CLRL XWB$L_IRP_ACC(RS) 3; Remove IRP 
38 AS) =6550)0=— 7DsS«(06E3 «1664 MOVQ RO, IRP$L_TOST1(R3) ; Save I/0 status 
06E7 1665 3 
06E7 1666 3 
rdf be 3 Setup the CCBSL_WIND value and deallocate the ICB. 
Q6E7 1669 $ If either the access was unsuccessful or the request was for a 
06E7 1670 3 Connect Reject, then cleanup from the IO$_ACCESS attempt and 
06E7 1671 : leave the CCBSL_WIND image at zero. 
06E7 1o%6 3 
0SE7 167 : 
0 EO O6E7 1674 BBS #10$V_ABORT,- : If BS, Connect Reject 
06 20 A3 06E9 1675 IRP$W_FUNC(RS) ,60$ 3 
58 AS 94 O6EC 1676 CLRB XWBS$B_DATA(R5) ; Init optional data cell to prepare 
O6EF 1677 : for eventual disconnect 
05 50 8 O6EF 1678 BLBS RO, 1008 ; If LBS then successful I0$_ACCESS 
O11F 0 O6F2 1679 60S: BSBW CLEANUP_ACCESS ; Clean up from access 1/0 fect 
09 =s7 we 1980 BRB 3; Complete the I/0 
OOF4 30 O6F7 1681 100$: 8SBW get WNDSC ; Get CCBSL_WIND image descriptor 
67 55 yi O6FA 1686 MOVL R5,TR7) : sete CCBSL_WIND value 
0161 0 O6FD 16 BSBW DEAL_ICB ; Deallocate fhe ICB 
8508 1oRe 110$: ; 
8 ig 3 : Complete the 1/0 
3 omplete the 
a7) ip 
067D 30 , 1689 BSBW = NETSPOST_IO : Post IRP for completion | 
1BC 8F BA Q7 1691 200$: POPR #*M<R2,R3,R4,R5,R7,R8> |; Restore regs 
0 01 0 7 1036 MOVL S*a#Ss “NORMAL ,RO ; Success 
70A 169 RSB | 
| 
} 
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vb4-000°° ACTSENT RUN =. 


cm 
=s 


ter RUN state action rou NETACP.SRC CIN NETDRVSES.MAR; 1 (4 


net 0 
NT_RUN = En 
q : i SBTTL ACTSENT_RUN - Enter RUN state action routine 
708 1699 : 
if : if y ; This routine is entered to setup the XWB for entering the RUN state. 
70B 17 gi : INPUTS: R7? Event code - it pitt be reprocessed via the complex event 
70B 17 : mechanism. Note that the state should have 
70B 1704 : been updated by shen. 
708 7B) 3 R5 XWB address 
$708 1706 ; RO Scratch 
$708 1508 : OUTPUTS: RO garb 
: : arbage 
0708 1508 : . . 
070B 1710 ; ALL other registers are preserved. 
070B 1711 : 
0708 Wie ic :- 
0708 1713 ACTSENT_RUN:: ; Enter RUN state 
F8F2" 30 O70B 1714 BSBW NETSSETUP_RUN : Setup XWB for RUN state 
) ao a iti? BRW NETSCOMPLEX_EV ; Change state and resignal the event 
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55 18A3 00 Switch to XWB context 


15 
NETDRVSES = DECnet Session Control Module for NETD 16-SEP-1984 01:32:10 VAX/VMS Macro V04-00 Page 
WO4e 000 NESE -DEACCESS= IOS_DEACCESS FDOT proce ety 83:38:36 NETACP.SRCINETDRVSES.MAR; 1 ° 
18 .SBTTL NETSFOT_DEACCESS= IO$_DEACCESS FDT processing 
1 SBTTL NETSDEACCESS - IOS_DEACCESS ‘'startio’’ processing 
: INPUTS: AP Pointer to the Q10 P1 parameter 
: R8 Must be saved/restored if return to Exec for next 
: FOT routine 
; R7 1/0 function code without modifiers 
3 R CCB address 
3 S UCB address 
: RG PCB address 
3 R3 IRP address 
: R2-RO Scratch 
: OUTPUTS: R5,R3 Preserved 
; ALL other regs may be clobbered. 
NETSFDT_DEACCESS: : ; 10$_DEACCESS FDT routine 
4C Ads OG ; CLRL IRP$L_DIAGBUF (R3) :; Zero misc buffer pointer 
50 OOAC 8F 3C¢ MOVZWL #SS$_FILNOTACC,RO 3; Assume ‘'Link not accessed’ 
18 A301. «CA BICL #1, IRP$L_WIND(R3) : Clear interlock bit 
> a | BGEQ 206$ 3; If GEQ, Link is not accessed 
OF78 8F PUSHR #*M<R3,R4,R5,R6,R8,R9,R10,R11> : Save regs 
DSBINT UCB$B_FIPL(RS) : Synchronize 
58 01 00 MOVL #1,RIT : Say ‘okay to go to IPL 2" 


MOVL —§IRPSL_WIND(R3),R5 


3 Setup disconnect reasons codes as appropriate 
44 AS 0064 8F 1 CMPW = #NETSC_DR_INVALID,XWBSW_R_REASON(RS) ; Rev'd reason code yet ? 
06 12 BNEQ 0$ ; If NEQ yes 
44 AS 0066 8F 3C MOVZWL #NETSC_DR_DEACC, XWBSW_R_REASON(RS) ; Setup local reason 
46 AS 0064 8F 81 10$: CMPW #NETSC_DR~ INVALID, XWBSW~X~REASON(RS) ; Xmt_reason code setup ? 
OD 1A BGTRU 20% ; If GTRU, yes 
46 A5 00 3C€ MOVZWL #NETSC_DR_NORMAL, XWBSW_X REASON(RS) ; Assume ordinary disconn. 
04 20 AS 08 3 BBC #10$V_ABORT IRP$W_FONC(R3),20$ ; If BS, must abort all 1/0 
46 AS 09 C MOVZWL #NETSC_DR_ABORT, XWBSW_X_REASON(RS) ; Else, set “disc. abort’ 


208: 


3 If IOSV_ABORT is set, then both the transmitter and receiver must 
> be run-down. Otherwise, this is a ““synchronous’’ disconnect and 

: ope Frenent eter must be allowed to send all data before breaking 
: e Link. 
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a a a ed dd OY) 


OB OE AS EO Bs #XWBSV_STS_CON, XWBSW_STS(RS) 1908 : If BS, not in RUN format 
03 20 a3 1 BBC #10$V_ABORT, IRP$W-FUNC(R35,50$ : If BS. must abort all 1/0 
piet 8 77 BSBW DRAIN_XMT ; Run-down the transmitter 
re} of 508: BSBW DRAIN_RCV ; Run-down the receiver 
764 1774 100$:  ENBINT : Restore IPL 


LL Se ee aan 


43 | 
(44) | 
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NETORVSES - DECnet Session Control 1:32:10 VAX/VMS Macro V04-00 Page 44 | 
v04- NETEDEACCESS - los DEACCESS “startio’ pr 55-SEP-1984 $3536.36 ENETACP. SREINETDRVSES MARS 1 - (44) | 
OF78 8F BA 6? 17h POPR = #*M<R3,R4,R5,R6,R8,R9,R10,R11> ; Restore regs 
Q0000000'GF 17 Q7 177 JMP G*ACPSDEACCESS : Goto system FDT routine | 
00000000'GF 17 rn 1778 2008: INP -G*EXESABORTIO t Abort the 1/0 
777 «1780 
777 «+1781 NETSDEACCESS:: ; User Q10 to break Link 
0074 30 Q777 17 ¢ BSBW GET _WNDSC ; Get CCBSL_WIND image desc 
67 4 OQ77A 17 CLRL (R7J ; Clear CCBSL_WIND image 
38 A 01 4 ree 178 MOVZWL #SS$_ NORMAL, IRPS$L_IOST1(R3) ; Setup success status 
¢h AS 02 as O07 1785 BISW = #IRPSM_FUNC, IRP$W_STS(R3) ; Mark for write back 
2A 01 DO 0784 17 § MOVL #1 ERPS, BENT (85) ; Write back 1 (the window) ABD 
5 12 =O 788 17 MOVL #NETEVT —DEA,R7 ; Setup event code in case R5 
0 7 1788 RSB :; is a valid XWB pointer 
078C 1789 
78C 1790 
78C 1791 ACTSDEACCESS ; User Q10 to break Link 
0085 3 78C 1738 BSBW CLEANUP_ACCESS ; Clean up from access I/0 fct 
0065 0 O78F 179 BSBW GET_P2DSC 3 Get optional data descriptor 
58 07 0792 1794 DECL ; Reduce length by count field 
1¢ 019 are 1795 BLSS ACTSRES_DISC ; If LSS, then no data 
51 67 QA 0796 1796 MOVZBL (R7),R1 ; Get count value from string 
51 58 D1 0799 1797 CMPL ~—s RB, RA ; Take minimum of size from 
03 IF O79C 1798 BLSSU 208 ; descriptor and size from 
58 51 00 O79E 1799 OVL R1,R8 3 _strin 
10 26 D1 O7A1 1800 208 CMPL RB, #16 ; Take minimum of what's there 
03 1F O7A4 1801 BLSSu 30 : and max allowed by NSP 
58 10 D0 OQ7A6 1306 MOVL #16,R8 3 ’ 
67 58 90 Q7A9 1803 30S: MOVB RB, (R7) 3; Setup count field in string 
51 57 B° O7AC 1804 MOVL R7,R1 ; Setup seurce ptr 
OS5AD 0 O7AF 1805 BSBW NETSMOV_TO_XWB ; Move counted string to 
07B2 1806 ; XWBSB_DATA 
07B2 1807 ACTSRES_DISC ; Resume Disconnect processing 
078 1338 3 
07B2 1809 3 ae 
0782 1810 3 If the XWE is idle, continue processing this event. Else, dismiss 
078 131) 3 this event for now and resume it when the XWB goes idle. This is 
07B2 1 \¢ : the only way to do a “yaghronous disconnect’’ with NSP pipelining 
07B2 181 3 soua tes user Transmit IRP's to be completed before the CXB's are 
gre 1814 ; actually transmitted. 
7B2 1815 : 
578 1916 . 
7B2 181 6sBB NETSCHK_X_IDLE ; Is the transmitter idle ? 
784 1 18 BLBC RO,100$ : If LBS then no 
787 181 BSBW NETSPURG_RUN : Cleanup if necessary 
ho ! ? RSB ; Return to change state 
o7ee 18 ¢ 100$: BISW #XWBSM_STS_DIS,xXWBSW_STS(R5) ; Mark disconnect pending 
7BF 1 BRW NETSEND_EVENT ; Dismiss this event for now 
07C2 1824 
J 
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1 
j 
7C2 #1 $ | 
ot ! ; -ENABL LSB 
7C2 1 NETSCHK_X_IDLE:: ; See if transmitter is idle | 
20 0E AS 04 EO OQ7C2 18350 “BBS #XWBSV_STS_CON, XWBSW SISCRE? . 108: If BS, not in RUN format | 
28 ppec 7 0° 7C? «1831 MOVL XWBST_OT+CSBSL_X_CXB(R5) ,RO 3; Get next DATA CxXB 
0 OEC C C oe } § — mm} XWBST_LI+LSBSL_X_CXB(R5) ,RO 3 che k"for int interrupt CxB 
XL 3; Check for 
50 00B4 c C8 O7D1 1834 BIS XWBST_DT+LSBSL_X_PND(R5),RO : OR in pending DA BATA Xmt IRP's 
50 0088 cS CB 0706 1835 BISL KUBST_OT +L SBSL_X_IRP(R9) RO ; OR in spent ATA Xmt IPR's 
50 hd cs COC 70B 1 § BISL XWBST_LI+LSBS$L_X_PND(R5),R ; OR in pendi ng Int. Xmt IRP's | 
50 60088 c C8 O7E 18 BISL XWB$T-DT+LSBSL_X_IRP(R5),RO : OR in spent nt. mt PR's 
Sse > (Y 3 BNEQ 20$ gs iv "Fe a not idle 
50 01 OD Bre 13 10$: MOVL #1,R0 3 a 
05 TEA ! rt RSB 3; Don 
50 04 §7e8 1862 20$: CLRL RO : Say ‘‘non-idle”’ 
05 O7ED 184 RSB 3; Done 
O7EE 1844 
O7EE 1845 -DSABL LSB 
O7EE 1846 
O7EE 1847 
O7EE 1848 -ENABL LSB 
Bare 1849 GET_WNDSC: ; Get window descriptor 
58 D4 07 3 1850 CLRL R8 ; Get descriptor offset 
12 11 #O7FO 1851 BRB 10$ ; Continue 
O7F 1336 GET_P1DSC: ; Get P1 descriptor 
58 08 »d0 O7F2 185 MOVL #8,R8 3; Get descriptor offset 
OD 11 O7F5 1854 BRB 10$ : Continue 
O7F7 1332 GET_P2DSC: ; Get P2 descriptor 
58 10 00 O7F7 1856 MOVL #8*2,R8 :; Get Geceripter offset 
08 11 O7FA 1857 BRB 10$ : Continue in common 
O7FC 1858 GET_P3DSC: ; Get P3 descriptor 
58 18 D0 O7FC 1859 MOVL #8*3,R8 3; Get descriptor offset 
03 11 O7FF 1860 BRB 10$ 3; Continue in common 
0801 1861 GET_P4DSC: ; Get P4 descriptor 
58 20 00 0801 1806 MOVL #824 RB ; Get desciptor offset 
58 2C B3 CO 0804 1863 10$: ADOL @IRP$L_SVAPTE(R3) RB ; Get descriptor seeress 
57 88 3C 0808 1864 MOVZWL (R8)+ ; Get offset to dat 
57 FF A847 9E Q80B 1865 MOVAB  -1(R85CR7),R7 ; Get ptr to data ee skipping | 
0810 1866 3; over access mode byte 
58 68 3C oBts 1867 MOVZWL (R8),RB ; Get length of data 
05 0813 1868 RSB | 
pale 1369 -DSABL LSB | 
814 1870 
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Control Module a NeTD 16-SEP-1984 04:38:10 
Cleanup XWB for term -SEP-1984 02:20:26 
S 
+ 


BITL CLEANUP_ACCESS = Cleanup XWB for terminated IO$_ACCESS 


aoa 


«cz? 


; INPUTS: a - XWB address, low bit set if none 
3 R35 - IRP address 
; OUTPUTS: ALL registers are preserved. 
éL LEANUP_ACCESS: 
07 #88 PUSHR #*M<RO,R1,R2> ; Save regs 
5 D4 CLRL Re ; Assume no byte quota to return 
19 5 E8 BLBS R fr. If LBS then no XwB 
44 18 BSBB DEAL : Deal locate the ICB 
04F6 3 BSBW DETSDRAGN FREE_CXB ; Drain CXB free queue 
0c AS” sB? DECW XWBSW_REFCNT(RS) ; Account for loss of accessor 
38S soi12 BNEQ 00$ ~ ; Br if last accessor 
10 AS) D4 10$: CLRL XWBSL “BOSCO tRS) : ~_ is unowned 
34 AS 4 CLRL XWBSL-PID(RS) XWB is unowned 
04 0E AS OA €E0 BBS wxuBsy- ete ASTPND ,XWBSW_STS(R5), abs : If BS, AST block in use 
016C C5) (4 CLRL XWBSSFACBSL_PID(R5) : Prevent false AST delivery 


DIOP SPORTY OWMOL LL FLOW OWS DOO AL LLL LSS SESS E LP 


G9. 09 Cd GO Gd G0 0d Cd Cd Od OD 9 OD GD OO CO CP G9 CD G9 GO Co Cd Cd Cd CD CD CD CO CD CD CODCOD CDOS COODCDODODCDODODCDOCD 00D 
AAEM IIE & WANA AAI AAI AIP 2 St 


i a a a a a dd od dd TY 
WOOWOUOOOOOO0O00000000000 0000 0 0000000 09 0d Cd CO CD CD CO CD CO CO CU COCDCDCDCDCDCDCDCDOCNCDCDCDCD = «61MM 
RIPMININININS 2 9 | [DOO OQDOOOOOOO OOOO OOOO OCWDWOWOWOWOWOONNINNNNNN Wm 
AIF WN 9 ODNOAOU EWI OOD NAME WN SO OO NO NE WWIN 2 OOD NANFA  O ODNOUE 


OOOO COOOGOOOOOGGOOCGGOGOOSSOSOOGOOOGOOOSOOOCOSOOOOCOOSOOSOOOOOOOOOOOCOO Cs 


20$: 


50 OC A3 3¢ MOVZWL IRPSL_PID(R3),RO ; Get PID index 
51 00000000'GF dO OVL G°SCHSGL _PCBVEC, R1 : Get PCB vector address 
51 6140 00 MOVL (R1)CROJ,R1 : Get PCB address 
OC AS 60 Al D1 CMPL PCBSL_PID(R1), IRP$L_PID(R3) 3 Still there ? 
“we BNEQ 30$ : If not branch 
50 0080 Ci dO MOVL PCBSL_JIB(R1) ,RO ; Get Jl 
30 AO B6 INCW  JIBSW7FILCNT(RO) : Return quota for I0$_ACCESS 
20 AO 326552 ~= =O ADDL R2, JIBSL_BYTCNT (RO) : Return byte quota 
24 a0 52 C0 ADDL R2,JIBSL_BYTLM(RO) 3; Here too 
07 BA 30$: POPR #*M<RO,R1,R2> : Restore regs 
05 RSB 3; Done 
; 200$: BUG_CHECK NETNOSTATE,FATAL : Invalid reference count 
1 DEAL_ICB: ; Deallocate the ICB 
7E 50 +9 MOVQ RO,-(SP) ; Save regs 
OE 0E AS 04 He BBC #XWBSV_STS_CON, XWBSW_STS(R5) ,40$ : If BC, XWBS_ICB is invalid 
50 010C C5 69 MOVL XWBSL-ICBTR5) ,RO 3; Get buffer for deallocation 
03 8 BGEQ 0 : If GEQ then none 
0408 BSBW NE TSDEALLOCATE $ Deallocate block in RO 
010C C5 He 30$: CLRL XWBSL_ICB(R5) : Say “'no I1CB’ 
50 «BE a 40$: MOVQ (SP)+,RO : Restore regs 
fh RSB 3; Done 
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O1BC 8F 


O1BC 8F 
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pp | 
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e for NETD 16-SEP-1984 01:32:10 VAX/VMS Macro V04-00 Pa 47 
-SEP-1984 83:38:38 NETACP.SRCINETDRVSES.MAR; 1 - (48) 
» SBTTL NETSCANCEL - Cancel I/0 routine 


Most of the work for the Cancel-1/0 sequence will occur when the special 
IO$_ACPCONTROL QIO is issued by the $C 


In all cases 
cleanup ma 
the specia 
active. 


INPUTS: 


OUTPUTS: 


ETSCANCEL: 
HOVE 
BEQL 


gs 
RSB 


‘ the ACP is informed via a mailbox message since special 
2 
Cancel IRP is only sent to the ACP if there is a logical-Link 


If the unit is busy then it must be a bug sinc NETSSTARTIO never 
allows an 1/0 queue to build on the UCB 


NCEL system service. 


needed in the ACP (e.g. declared name cleanup). Note that 


| 


RS UCB address 

RG PCB address 

R3 IRP address if UCB is busy 
R2 Channel number 

R1,RO Scratch 


NETSC_IPL 

R3-RO Garbage 

ALL other registers are preserved 

Cancel I/0 entry point 


Get VCB address 
If EQL then none 


CB$L_VCB(R5) ,RO 
0$ 


U 
5 


Tell the ACP 


#*M<R2,R3,R4,R5,R7,R8> Save regs 
Save channel number 


R2,R7 
RCBSL_ACP_UCB(RO) ,R5 Get the ACP's UCB 


#MSG$_PATALOST,R8 Setup mailbox message code 
6,R No. of bytes to be entered 
N TSSEND_MBX Setup the message 

R Br on error -- ignore it 
PCBSL_PID(R4) ,(R3)+ Enter the PID 

R7,(R3)+ Enter channel 

asp)+ Send the message 


#*M<R2,R3,R4,R5,R7,RB> Restore regs 


#UCBSV_BSY,UCBSW_STS(R5),100$  ; pene if UCB is not busy 
one 


BUG_CHECK NETNOSTATE, FATAL : Our UCB assumptions are wrong 


we ORY ES 


mw 
ce 
2u 
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- SBTTL NETSPURG_RUN - Cleanup XWB to exit RUN state 


zi 
m 
“co 
om 
uv- 
cs 
De 


: reneneee eer and transmitter are run-down on both the DATA and INT/LS 
3 S. 
: It is assumed that this routine is galled as a result of a call from one 
; of the state transition action routines and that there will be a state 
; transition out of the RUN state as the event processing is completed. This 
: is because certain processing -- such as the setting and clearing of XwB 

: flags -- is assumed to be done as part of the state transition processing 

; and is therefore done by this routine. 


i Di Di Ds Ds De Ds ee i De ee i 


INPUTS: R5 XWB address; low bit set if no XwB 
RO Scratch 


: OUTPUTS: RO Garbage 
: ALL other registers are preserved 
N 


ETSPURG_RUN:: ; Leave the RUN state 
PUSHR #*M<R1,R2,R3,R4,R6,R7,R8> Save regs 


BBS #XWBSV_STS_CON, XWBSW_STS(R5),20$ ; If BS, not in RUN format 
BSBB DRAIN_XMT Drain the transmitter 
BSBW DRAIN_RCV Drain the receiver 


20$: oon #*°M<R1,R2,R3,R4,R6,R7,RB> 


O1DE 8F 

05 0F AS 04 
08 

0064 

O1DE 8F 


Bete Se Se Se Se Be & 


Restore regs 


ow wm 
vr OOO @ 


DRAIN_XMT: ; Drain the xmitter 
ransmit CXB's are detached and eventually deallocated. 


t 
transmit IRP's are sent to 1/0 Post with disconenct status. 
LSB transmitter state variables are updated to reflect an 


010 
i 
018 
014 
015 
1 2016 
017 
018 
019 
sosy 
$ 1 
098 
024 e transmitter. 
8 5 
0 : : Inputs: R8,R7 Scratch 
028 : R5 XWB address 
8 3 ; R4-RO Scratch 
1 ; Outputs: R8,R4-RO garbage. 
5 ; ALL other registers are preserved. 
5 
§ NE TSMAP_R_REASON 

3 8 MOVZWL R ASON_@_SS(RO),RO 
10 
41 
42 


Cec Oe Oe Oe Oe Se Oe Oe Se Se Se Se See tee 


Map disconnect reason to status 
Get proper 1/0 status code 

I0SB second longword 

Get the LS/INT CSB 


MOVAB XWBST_LI(RS) RB oe 
° 

Get the DATA LSB 
Do it 


MOVAB XWBST_DT(R5S) RB 
10$ 
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: Simulate an ACK on each active CXB thus causing them t 

3 deallocated. This will lead to a false value for (S888. “REQ, 

: but this is tolerable since we're about to exit the RUN state. 

: (only the DATA subchannel has CXB's attached to the LSB). 
MOVZBL | $B8B_X_CKBACT(RB) ,R4 3 Number of active Xmt CXB's 

BEQ ; If EQL then none 

BSBW NE TSACK_XMT_SEGS ; “‘ACK'' each segment release CXB's 
RSB ; Done 

mova RO,-(SP) ; Save I0SB image 


: Update Xmitter state variables 


MOV LSBSW_LUX(R8) ,LSBSW_LNX (RE) ; Pretend we've sent all packets 
MOVW LSB$W_LUX(R8) ,LSBSW_HAR(R8) ; Pretend all packets were ACK'd 
MOV LSBSW_LUX(R8),LSBSW_HAA(R8) ; No further ACK's expected 
MOVW LSBSW_LUX(R8),LSBSW_HXS(R8) ; No further packets to send 


: Join the Xmitter's IRP Lists, setup each IRP with new 1/0 status 


ASSUME IRPSL_IOQFL EQ 0 
MOVAB LSBSL_X_IRP(R8),R1 
BRB 40$ 

CLRL LSBs X_PND(RB) 


Get spent IRP Listhead 
; Detach pending IRP List 


MOVL (RT)~ 3; Attach it to end of spent IRP List 
MOVL RO 3; Update last IRP pointer 
MOVG HNO Eat ree : Overwrite status 

MOVL (R1),R0 3 fh next IRP 

BNEQ 3; If NEQ, IRP was found 
MOVL SBSL_X_PND(R8) ,RO 3 IT Neer sno IRP List 
BNEQ : Q, no ,snety 

MOVL SBSL_X_IRP(R8) ,R3 ; Get f erat _ 

BEQL : If EQL, 

BSBW NE TSXMT_DONE ; tonplete. alt Xmt IRPs 
MOVa (SP)+,R0 3; Restore stack and RO 
RSB : Done 


DRAIN_RCV: ; Drain the receiver 


MEAN OOO NAME WN $$ O OO NAVE WN SO OD NAME WN 0 OD NO UE WO ODOM W 
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cone 


ALL receive CXB's are detached and deallocated. 


ALL receive IRP's are sent to 1/0 Post with disconnect status. 
For each LSB, LSBSB.R _CXBQU0 is zeroed to prevent further CXB‘'s 
from being received. ~ 
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921 2100 ; 
351 5103 :  tewet 9 Scratch 
3 nputs: cratc 
921 1 5 : 3 Re XWB address 
921 2104 : R3 Scratch 
4 ! ! 5 : R1-RO 3 8=Scratch 
M4 } ! ; : Outputs: R8,R3,R1,R0 garbage. 
0921 2109 : ALL other registers are preserved. 
a govt 
F99C 0 88 1 18 6SBwW NETSMAP_R_REASON 3; Map disconnect reason to status 
50 2 Ao C 88 4 211 MOVZWL REASON_@_5S(RO),RO ; Get proper 1/0 status code 
51 D4 0928 2114 CLRL ; I0SB second longword 
58 0004 ¢S 9 92A 2115 MOVAB XWBST_LI(RS),R8 ; Get the LS/INT LSB 
05 1 92F se BSBB $ 3; Do it 
58 OO0A4 C5 9E 931 11 MOVAB + ee DT(RS) RB ; Get the DATA LSB 
7E 50 7D 0936 2118 10S: mova (SP) ; Save I0SB image 
0939 2119 : 
0939 2120 3 
0939 2121 § Drain Receive CXB List 
0939 21 ¢ 3 
0939 21 : 
AB 94 0939 2124 CLRB LSBSB_R_CXBQUO(R8) ; Prevent further receives 
28 AB 9G baat 125 CLRB LSB$B_R_CXBCNT(R8) 3; Zero the CXB_ in use count 
50 20 A8& DO O0935F 126 MOVL LSBSL_R R-CXB(R8) ,RO 3; Get first CxB = list 
OE 13 0943 2127 BEQL 4 : If EQL then non 
20 ABS Seee ; 3 CLRL LSBSL_R_CXB(R8) 3; Detach entire CXB chain from LSB 
10 AO DD 0948 1%0 30$: PUSHL CXBSL_LINK(RO) > Save ptr to next CXB 
0400 30 0948 2131 BSBW NETSDEALLOCATE 3 Deallocate block in RO 
50 8—ED0 boee 13 POPL RO : Get the next CxB 
F512 «0951-2134 BNEQ 308 : If NEQ then Loop, else no CXB 
te 
099 137 : Complete all Rev IRP's with mapped disconnect status code 
0953 2139 ; 
53 1C A8& 0 B32 140 MOVL SBSL_R_IRP(R8) ,R3 ; Get next Rcv IRP 
oc 1 95 141 BEQL ; If EQL then none 
2A 4 0959 136 CLRW 4 a BCNT(R3) 3; No bytes aterres 
38 A3 gf D 95 14 MOVQ (SP) ,TRPSL ast (R3) : nes 1/0 st 
F69D" 30 0960 2144 BSBW NETS $RCV_DORE : Comp eke the: oe 
ee is Pe BRB 40$ 3 Loop 
50 8E€ 7D 0965 2147 50$: MOVQ (SP)+,RO : Restore regs 
05 0968 2148 RSB 3; Done 
0969 2149 
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» SBTTL NETSACP_COMM - Entry for ACP communication 


This routine is called by the ACP for change of status notification 
a Be process exit, logical-link ‘‘ownership’’ changes, and datalink 
n ns. 


CALLING SEQUENCE: 


JSB @CRBSL_INTD+VECSL_START at IPL 0 
INPUTS: R5 NET UCB address. 
R4-R1 Function specific -- see individual action routine preambles 


RO Function code as follows: 
a thas S Sat Y 


“ABORT. = 
NETUPD$ "EXIT . 


NETUPD$_DLL_ON ° 


Pass NCB to Declared Name mailbox 
Process created to received connect 
Process couldn't start 

Started process is exiting 


Datalink has come online - post a receive 
NETUPD$_DLL_DLE pete: jee online for service fcts 
NETUPD$_REACT_RCV eactivate Datalink receiver 

NETUPD$_SEND "AELLO ~ gat datalink to send a hello message 


NETUPDS_CRELNK 


- Create a logical-Link control structure 
NETUPD$_DSCLNK - Graceful disconnect of single Link 
NETUPD$_ABOLNK - Force immediate disconnect of all Links 


NETUPD$_BRDCST ad 
NETUPD$_REPLY ba 


Broadcast mailbox message 
Reply to associated mailbox 


OUTPUTS: RO Status 
ALL other registers are preserved. 

ai R3_OFF = 4*3 
R4_OFF = 484 
R5_OFF = 485 

-ENABL LSB 

NETSACP_COMM: : 3; ACP entry point 
SETIPL UCBSB_FIPL(RS) . Raise IPL to synch access to structures 
PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,RI0> ; Save regs 
MOVL SP,R10 : Save ptr to saved RO 
BSBB ; Dispatch on fct code 
MOVL RO, (SP) > Overlay return code 
POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,RB,R9,RI0> |; Restore regs 


SETIPL #0 3; Restore IPL 
RSB 


Paar 3) 
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ze 
m 
340 
wm 
>o 


net 
CP_COMM 
981 3 
2 ! 208: SOISPATCH RO, TYPE=B,- : Case on function code 
981 19 <NETUPDS_CONNECT, DECLARE>,- ; Pass NCB to Declared Name mailbox 
981 \¢ <NETUPDS_PROCRE, PROCRE>,- ; Process created to rcv connect 
981 1 <NETUPDS_ABORT, ABORT>,=- : Abort single Link for ive process 
, : 13 <NETUPDS_EXIT, EXIT>,=- ; Started process is exiting 
981 if <NETUPDS_CRELNK, | CRE_LNK>,- : Create a logical-Link 
0981 1 <NETUPDS$_DSCLNK, DIST_ONE>,=- ; Disconnect single logical-Link 
0981 18 <NETUPD$_ABOLNK, ABORT_ALL>,-; Abort all logical-Links 
981 0 <NETUPDS_BROCST, BRDCST>,- ; Broadcast mailbox message 
0981 1 <NETUPDS_REPLY, REPLY>,= ; Send genera’ mailbox message 
44 ¢ <NETUPD$S_DLL_ON, DLLTRN>,- ; Datalink made into ‘‘on’’ state 
0981 4 > F 
0O18F 31 Boge 2 BRw UNKNOWN 3; Let lowest Level handle this 
O99E 7 3+ 
8443 8 3; PROCRE = Process started due to CI received 
099E 0 : INPUTS: RS NET UCB address. 
099E 13 R4 Scratc 
099E 3 : R3 Local Link number. 
O99E 3 R2 Scatch 
9443 : : Ri PID of process 
099E 2236 :- 
50 D4 O99E 3 PROCRE: CLRL RO ; setup for ‘'no PID’ match 
009D 30 O9A 38 BSBW 200$ 3; Get XwB 
11 12 OQO9A 39 BNEQ 40$ 3; Done if NEQ 
34 AS 51 DO OQ9A5 40 MOVL R1,XWBSL_PID(R5) ; Set PID of process allowed 
O9A9 41 3; to complete the connect 
0B iii oaar $6 ere 40$ : Done 
O9AB 44 3+ » 
84 t2 3; ABORT - Abort single logical-link for a given process 
09AB 23 : INPUTS: RS NET UCB address. 
O9AB 48 ; R4 Scratch 
O9AB 49 ; R3 Local Link number. 
09AB 50 ; R2 Disconnect reason code 
7. 33 5 Ri PID of process (zero if process not started) 
9AB 2253 :- 
50 51 9AB 2254 ABORT: MOVL  R1,RO : Setup PID (could be zero) 
008F 5 DAE 38 BSBW §6=s-« 2008 : Get XWB 
03 98 § BNEQ 40$ : Done if NEQ 
0067 3 983 BSBW 180$ : Enter DIS state | 
50 01 »0dO 096 3 40$: MOVL S“#SS$_NORMAL ,RO ; Report success 
05 ss 4 2 RSB ; Done 
9BA 6 3¢ : 
i 9) 66 s €ExIT - A formerly started process has exited 
9BA 2264 : INPUTS: RS NET UCB address 


ORY ES 


55 34 ae 
55h AS 
55. EO AS 
55 2C AS 

50 


50 
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9BA 65 ; R4 Scratch 
A 08 $ R geretes 
OBA 67 ; R2 Disconnect reason code 
zon $9 5 Ri PID of process 
9BA 0 :- 
9 9BA 2071 EXIT:  MOVL YCBSL_VCB(RS) .R5 : Get RCB 
1 43 fe BEQL 0$ ; Br if not mounted 
9 9C 7 MOVL RCBSL_PTR_LTB(R5) ,R5 ; Get 
1 9C4 74 BEQL $ ; Br if its not there 
DE 09C6 75 MOVAL =XWBSL_LINK - : 
9CA 6 +LTBSL_XWB(RS) RS 3; Setup for scan 
09 9CA 77 608: MOVL XWBSL_CINK(R5) ,R5 ; Get next XwB 
1 9C 78 BEQL 80$ : If EQL then end of List 
rt 09D 79 MOVL R1,R0 3; Copy process PID 
10 09D 0 BSBB 216 ; Check process access to XWB via PID 
12 09D § 1 BNEQ 60$ 3; If NEQ then something wrong 
10 0907 Hf BSBB 180$ : Disconnect the Link 
11 0909 228 BRB 60$ 3; Continue 
% ° 3; Success 
DO 09DB 84 80$ MOVL S$*#SS$_NORMAL ,RO S 
05 O9DE 85 RSB 3; Done 
a 
O9DF 88 ;+ ? 
apes $85 ; CRE_LNK - Create a single logical-Link 
O9DF 291 ; INPUTS: RS NET UCB address. 
O9DF $36 ; R4 Scratch 
O9DF $8 3 R3 Logical-Link's remote node address 
O9DF 94 ; R2 Scratc 
baad soe ; R1 PID of process allowed to access Link 
Boor 339 ; OUTPUTS: RO XWB address, high bit clear => failure code 
O9DF ¢39 CRE_LNK: : Create single logical-Link 
“30 O9DF 00 BSBW NETSCREATE_XWB :; Create the structure 
E9 45 301 BLBC RO, ; If LBC, failed 
DO O9E $08 MOVL R1,XWBSL_PID(R5) 3; Setup PID 
DO O9E9 0 MOVL R5,R0 3; Setup XWB address 
05 8433 Be 10$ RSB 3; Done 
O9ED 3 3+ - 
4444 07 ; DISC_ONE - Disconnect a single logical-Link 
O3ED 369 ; INPUTS: RS NET UCB address. 
9ED 10 ; R&4 Scratc 
O9ED 1713 R3 Local Link number. 
9ED \¢ : R2 Disconnect reason code 
434 1 ; R1. Logical-Link's remote node address 
9ED 2315 BISC_ONE: : Disconnect single logical-Link 
30 9ED 1 BSBW XWB_LOCLNK : Find the logical-Link XwB 
C +a 1 MOVZWL $*#SS$_BADPARAM,RO : Assume no such Link exists 
E OF 18 BLBS R5,120 3; If LBS then XWB was not found 
8 96 19 TSTW  XWBSW_REMNOD(RS) ; Remote node 0? 
1 oF $9 BEQL 100$ : If so, ignore node check 
Bi O9FB 1 CMPw R1,XWBSW_REMNOD(R5) 3; Same remote node ? 
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0 1 OFF BNEQ 120$ ; If not, return error 
0049 i Gao : 100$: BSBW 180$ ; Disconnect the Link 
50 01 bY A04 4 0 S“#SS$_NORMAL ,RO 3; Success 
05 OA07 5 120$: 
OA08 § 
yt 3+ 
yy 8 ; ABORT_ALL = Abort all logical-Links 
OA08 0; INPUTS: RS NET UCB address 
OA0 ] 3 R4 Scratch 
0A08 ¢ ; R3 Scratch 
yt ; : R2 Scratch 
QAO 4; R1 Ptr to LTB 
QOA08 2335 ; 
OA08 2336 ;- . 
QA08 2337 ABORT_ALL: ; Abort all logical-Links 
55 £0 Al DE OA0B8 $35 MOVAL bitty LINK = 3 
QOAOC 2339 LTB$L_XWB(R1),R5 ; Prepare for scan 
55 2C AS DO OAOC 2340 140$: MOVL XUBSL _CINK(RS) 5R5 : Get next XwB 
07 13 OAIO 2341 BEQL 1 ; If NEQ then got one 
52 08 B60 wis sae8 MOVW #NETSC_DR_THIRD,R2 ; Reason is ‘third party abort" 
0 10 OA1S 234 BSBB 180$ 3 pe Link a be broken 
f 11 OA17 2344 BRB 140$ 3; Loop 
50 01 DO OAI19 2345 1608: MOVL S*#SS$_NORMAL ,RO ; Success 
05 OAIC 2346 RSB 
OAID 2347 
OA1ID 2348 
QOA1ID 2349 ; 
OA1D 2350 ; Disconnect the Link 
QA1D 2351 ; 
6 AS 61 OAID $326 80S: CMPW XWBSW_X_REASON(RS) ,- ; Remote reason been setup vet? 
0064 8F OA20 235 #NETSC_BR_INVALID 3 
04 12 OA23 $32¢ BNEQ ; If NEQ then yes 
46 A5 52 80 OA25 2355 MOVW R2 yuesu REASON(RS) =; Enter disconnect reason 
44 AS Bl OA29 2356 1908: CMPW XWBSW_R REKSONCRS) = : Local reason been setup yet? 
0064 8F OA2C 2357 #NETSC_BR_INVALID 3 
04 12 OA2F 2358 BNEQ 195 : If NEQ then yes 
44 AS 26 BO 0A31 2359 MOVW R2 Tate R_REASON(RS) : 
F5CB8* 30 OA35 2360 195$:  BSBW NETSMA “LINK : Mark the Link to be broken 
50 6A 7D OA38 2361 MOVQ (R10) ; Restore RO,R1,R2 
52. 08 AA DO OA3B 36¢ MOVL BERIOS. Q : 
05 OA3SF 236 RSB ; Done 
OASO 2364 ; 3 
” $07 ; Find XWB, verify access rights by PID 
0254 30 OA4 89 200$:  BSBW XWB_LOCLNK ; Find XWB via local Link number 
9 95 OA4 68 TSTB #1 : Clear Z-bit, assuming error 
OA 55 =6EB SOO +4 BLBS R5,220$ ; If LBS then no XwB 
34 A5 50 D1 OA4B 0 210$: CMPL BS XWBSL_PID(RS) : Is the process the owner ? 
04 12 OA&C 2371 BNEQ 226 : If NEQ then no 
03. = 91 A4 i CMPB #XWBSC_STA_CIR,- : 
1E AS OAS 7 XWBSB_STACRS) ; Verify state 
05 OAS 74 220$: RSB 
AS 75 
AS 6 
AS 7? ; : 
AS 78 ; BRDCST =- Broadcast a mailbox message 
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ACP_COMM = Entry for ACP communicati 


A 79 ; 

OA3 Q ; INPUTS: RS NET UCB address 
A 1 3 RG 

OAS § 3 R3 

OAS ; R2 Mailbox msg code 
AS 4; Ri Scratch 
Ay Ee 

OA5 $ BRDCST: 

0A5 8 3 

BAe +4 ; & Code to set up R3 here will 
Ae 91 MOVAB MBX a ae 
A58 3 3003:  MOVL (R8Y+,R 
ASB 9 BEQL 3 

OASD 94 CMPW (R8)+,R2 

0A60 95 BNEQ 300$ 

OA6 309 320$: MOVL Re RB 

OA6 9 PUSHL # 

0A67 398 MOVL SP,R7 

OA6A 399 TSTL R4 

OA6C 2400 BEQL 400$ 

OA6E 401 MOVZBL (R4),R2 

QA71 188 INCL R2 

OA73 2403 MOVL R4,R7 

0A76 2404 BRB 406$ 

OA78 2405 

OA78 2406 3408: TSTL 

OA7A 2407 BEQL 3608 

OA7C 408 BITL R3 UCBSL_DEVDEPEND(R5) 

QA80 2409 BEQL 400$ 

OA82 410 360$: PUSHR #*M<R2,R3,R5> 

OA84 411 BSBW NETSSEND_MBX 

0A87 18 BLBC RO, 380$ 

OA8A 41 MOVL 

OA8D 2414 BSBW NETSMOV_CSTR 

QOA90 2415 JSB a(SP)+ 

OA92 2416 380$:  POPR #*M<R2,R3,R5> 

OA94 417 400$: MOVL US RSs LEME CRD) LR 

OA9B 2418 BNEQ 40$ 
AIA 2619 TSTL (SP)+ 
AIC 2420 MOVL § S*#SS$_NORMAL,RO 

OA9F 421 RSB 

Daag $258 
AA 4 

OAA 4246 3+ 

QAA 425 ; REPLY - Send general message to 

QAAO 24 § : 

QAA 427 ; INPUTS: R5 NET UCB address 
AA & 8 3 R4 Ptr to mailbox ms 
AAO 4 g 
AAQ 24350 ; R2 Mailbox msg code 
AA 431 ; R1 Scratch 
AA 4 ¢ 2 
AA 4 _- 

AAO 2434 REPLY: MOVL R2 RB 
AAS 2435 BRB 506$ 
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Ptr to mailbox msg text 
Associated mailbox mask 
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(0 if broadcast to all mailboxes) 


; Broadcast mailbox message 
move to NETACP, eventually 


Point to filter mapping table 

Get next mask 

If EQL at end of table - take the msg 
Is this the msg being sent? : 
If NEQ no = Lluop; else, R35 has bit 
Transfer msg type code 

Assume no message text 

Point to it 

Any message text? 

If EQL no, pete end of loop 

Get count field value 

Inc to get total string size 
Setup stable string pointer 

Jump to end of loop 


Will everyone take this message? 
If EQL yes 
Can this UCB take this message? 
f EQL no = don’t even try to send 
Save regs 
Call co-routine to setup the message 
If LBC then error 
Get message pointer 
Move the string with count field 
Complete the message 
Recover regs 
Get next UCB 
If NEQ then got one 
Fix the stac 
Exit with success 


assocaited mailbox 


R3 & Associated mailbox mask if NETUPDS_BRDCST (0 if broadcast all) 


; Get mailbox message code 
; Continue in common 
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* 8 DECLARE - 
440 ; INPUTS: RS 
441 ; RG 
rr ; R 
445; R 
444 ; R 
tee 

003 BECLARE: 
108 BSBW 
449 BLBS 
rh CMPB 
t2§ BNEQ 
45 MOVL 
454 MOVZWL 
455 500$: mova 
+28 MOVL 
45 BEQL 
458 MOVZBL 
459 520$: BSBW 
460 BLBC 
461 MOVL 
46 BEQL 
46 BSBW 
464 540$ JSB 
465 560$ MOVL 
466 580$ RSB 
467 
169: 
470 ; DLLTRN - 
471 


: INPUTS: 
bt 


LLTRN: MOVL 
CMPB 
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D 16 
net Session Control Module for NETD 16-SEP- 
COMM = Entry for ACP communicati 5-SEP- 


1986 8 


1: 
2: 


26:28 


Pass NCB to Declared-name 


NET UCB address 


Ptr to NCB counted string 


Scratch 
Scratch 
Scracth 


age gi OELNK 


Bua STA CIR, 

XWB$B_STA(RS) 

3 0$ ~ 
XWBSL_PID(RS) 

mnie CORNECT,RB 
R4_OFF(RIO) Ree 


(R2) ,R2 
NETSSEND_MBX 
RO,580$ 


546$ 
NETSMOV_CSTR 
a(SP)+ 
S“#SS$_NORMAL ,RO 


Datalink state transition 


NET UCB address 
Scratch 
Scratch 
Scratch 


Ptr to datalink's LPD 


UCBSL_VCB(R5) ,R2 
#LPD$T_LOC_ 


LPD$B"PTH_ INX(R1) 


UNK WOON 


Pas Ae oR1,R2,R3,R4,R5> 


#TQ 


#1 
Tae B Rar vee (AS) 
“NETST 


Tors *FPCIRS) 


R 
RCBSL PT PTR RAIQECR2). »RS 
raes sROTYBECASD, 600$ 


AX/VMS Macro v04-00 
NETACP.SRCINETDRVSES.MAR; 1 


mailbox 


eyes NCB " cos Larenohrect mailbox 
Find Link's XwB 

Br if no 

Must be in CIR state 


If not then cannot redirect connect 
Set PID of process 

Setup mailbox message t 

Get mbx message and UCB” aadrecees 
Copy nee 9 pointer 

QL then no text 

Set count of bytes to be sent 
Prepare to send mailbox message 
- on error. 

opy pointer 

Skip if null 
Move counted string into buffer 
Complete writing mailbox 

Success 

Done 


Get RCB 
Is this the local LPD 
If not, branch 


Save rege 
Copy UCB address 
Get TQE 


Br if timer is in use 
Set for system subroutine repeat 
Set timer handler address 
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NE TORVSES = DECnet Session Control Module for NET -SEP-1984 232: AX/VMS Macro V046-00 Page 57 
venti NETSACE COMA - Entry for ACP communicat oe 93:35:10 INETACE. SREINE DRVSES.MAR; 1 ° (80) 
14 AS 3 0 OAFA 2493 MOVL R3,TQ FR4(R5) ; Save UCB address 
00000000 009896 8 a a ate 182 MOVQ anttateh - 5 ; tick = 1 sec 
AS 80 495 TQE$Q_DELTA(RS) : 
50 FOOA CF 9 BOA 138 MOVAB W*NETSGL_OFF_DPTFLG,RO ; Get address of offset to DPT$B_FLAGS 
5 0 BOF 249 ADDL (RO),R ; Make it an address 
é 4 Ble 498 BISB § #DPT$M_NOUNLOAD, (RO) : Prevent reload of driver 
50 00000000'GF 7D 0815 2499 MOVO  G*EXESGQ SYSTIME,RO ; Set time of first tick 
3B 500 DSBINT #IPL$_TIMER 3; Lower IPL to that of timer service 
00000000'GF 16 OB 501 S$ G*EXESINSTIMQ ; Insert into queue 
0B 288 ENBINT 3; Restore IPL 
3F BA 8 : 207 600$: POPR #*M<RO,R1,R2,R3,R4,R5> ;: 
8 D 2fe Ur NOWN: ; 
F4D0" 30 OB2D 2506 BSBwW TRSUPDATE ; Fet code is in RO. 
05 0830 2507 RSB ; Exit with status in RO 
0831 2508 
0831 509 -DSABL LSB 
0831 2510 
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NETORVSES = DECnet Session Control Module for NETD 16-SEP-1984 01:32:10 VAX/VMS Macro v04-00 Page 58 
V oti NETSSEND.CS MBX = Send counted string to 5-SEP-1984 $3536 :26 NETACP.SRCJNETDRVSES.MAR; 1 . (51 
: ! 5 » SBTTL NETSSEND_CS_MBX = Send counted string to mailbox 
B31 4: 
B31 5 ; A mailbox message is built_and sent to the mailbox associated with the UCB 
B31 8 ; associated with the XWB. The counted string pointed to by Rl is appended to 
0831 ; the end of the mailbox wensege. R2 contains the assumed total count of the 
0831 8 ; string and may be zero. If there is no mailbox then the routine is assumed 
98 1 9 ; implicitly successful. 
B31 0; 
0831 13 
0831 § ; INPUTS: R8& Mailbox message type code 
0831 : R5 XWB address 
0B31 4; R2 Assumed total bongee of string (low byte only) 
3 : 2 : R1 Address of count field of string 
0831 7 ; OUTPUTS: R2 Zero 
0831 8 ; R1 perbone 
0831 3 RO SS$_NORMAL if mailbox successfully written 
0B31 0; SS$_NOMBX!1 if no associated mailbox or no UCB 
0831 12 Zero if (R1)+1 NEQ R2 or R2 GTRU 17 
: ! ¢ ; Also see NETSSEND_MBX for RO error codes 
1 2534; 
0631 35; ALL other registers are preserved 
0831 36 ; 
0B31 of 3° 
0831 38 NETSSEND_CS_MBX:: 
3— BB 8 { 72 PUSAR = #*M<R1,R2,R3,R4,R5> ; Save regs 
52 D5 0833 41 TSTL R2 3 Any bytes in string ? 
06 12 0835 4g BNEQ 10$ : If NEQ yes, else can’t trust R1 
6— 7O0°AF 9€ 0837 4 MOVAB 6*508,(SP) ; Setup null string ptr 
OF 11 0838 44 BRB 20$ 3; Continue 
50 D4 0B3D 45 10$: CLRL RO 3; Assume string error 
11 52 D1 OBSF 46 CMPL R2,#17 : Is count within range 
27) 1A —(0B42 47 BGTR 4 ; If not, branch ; 
53 52 61 £83 0B44 48 SUBB (R1),R2,R3 : Check count field consistenc 
53 97 0B48 49 DECB R3 ; Account for count field itself 
1F 12 OB4A 50 BNEQ 40$ ; Inconsistent if NEQ 
50 0275 8F 3C OB4C 51 208: MOVZWL #SS$_NOMBX!1,RO 3; Assume no UCB or mailbox 
55 10A5 00 0B51 26 MOVL XxWBSC_ORGUCB(R5) ,R5S ; Get UCB 
14 13 0855 BEQL $ ; If none, done 
60 AS D5 0857 54 TSTL UCBSL_AMB(R5) ; Is there a maiibox ? 
OF 13 teen 5 BEQL $ ; If not, branch 
9012 30 0B5c 6 BSBW NETSSEND_MBX : Build header (co-routine) 
09 5 E9 OBSF 7 BLBC ; Br on error 
04 AE DO 0862 8 MOVL ©: 4 §P) 1 : Get string address (note stack) 
0202 30 0866 9 BSBW NETSMOV_CSTR : Move string with count field 
9E 16 rh $ JSB a(SP)+ ; Close and send mbx message 
5 BA oBee 66 40$: POPR #*M<R1,R2,R3,R4,R5> ; Recover regs 
5 D4 0B6D 6 CLRL R2 ; String has been consumed 
05 Oar rt: RSB 
00 4 66 50$: -BYTE 0 ; Phony counted string for mailbox 
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v04-000 NEVESEND - Co-routine to send mailbo mitt 8:38:30 NETACP. SRCINETDRVSES.MAR: 1 ves (33) 


SBTTL NETSSEND_MBX - Co-routine to send mailbox message 


The first time the routine is entered the associated mailbox is found, a 
buffer is allocated for the message, and the mailbox header is built. When 
the routine is re-entered, after a call=back to the co-routine, the message 
is closed and sent to the mailbox. 


The original og parameters are given below, the re-entry parameters are 
given within the body of the code. 


INPUTS: Mailbox message type code 

UCB address 

Scratc 

Count of bytes co-routine will enter into message 
Scratch 

Scratch 

OUTPUTS: Pointer to next byte in mailbox message to be filled 
Address of allocated buffer if RO=SS$_NORMAL 


eochege 
SSS_NORMAL if successful 
SS$_NOMBX if there's no associated mailbox 


see NETSALONONPAGED for additional error status 
ALL other registers are preserved 


DzawmwDwD wWwwAwAwDrDzZ 
Oo-NW CO FU W"00 


NETSSEND_MBX: : 


POPIPIPIPOPIPINIPIPIPIPOPIPIPIPIPINIPIPIPININPIPIPINPIPINNPD 


AL Ab Ab Ab Ab Ab Ab Ab Ab db edb Ab Ab Ab Ab Ab db dh Ab bb db dh dh ah ah Ab dh db abeal 


OPD000000000 00000000900 0000090909 SI INI NINN NNO 


FWD $9 ODA UNE WIN OOOO NAME WIN @ O OD NAM EWN 0 OO NAMES WW OUOONAOUSWN)—OWO° 


Add 24 to the number of bytes the user will enter. This will 
ensure that the allocated block is large enough for COMSDRVDEALMEM 


Stitt titi ttt ttt ttt ttt ttt ttttt 


WOOO OOO NNN NN 


25 
5 ; 
6 ; 
6 : 
60 3 
Pt 3 to deallocate -- also creates space for: 
60 3 12 bytes for standard buffer header 
60 : bytes for mailbox msg type code 
60 3 bytes for mailbox unit number 
rt 5 1 byte for count field for device name 
61 : 
52. 18 CO 61 ADOL #24,R2 : Increase buffer size 
50° 28 a5 00 61 MOVL UCB$L_DDB(RS) ,RO ; DDB pointer 
51 14 A0 GE 61 MOVAB DDBST-NAME(ROS,R1 : Get device name string ptr 
51 DD 61 PUSHL R11 : Save device name string ptr 
51 61 9A 61 MOVZBL (R1),R1 ; Get string size 
we 8 61 ADDL R2,R ; Add in remaining bytes 
01AD 61 BSBW = NET SALONONPAGED : Get the buffer 
51 8ED0 2 POPL R1 ; Restore device name string ptr 
01 50 8 6 BLBS RO,10$ ; If LBS then okay ? 
° RSB 3; Return with error status in RO 
6 


10$: ADDLS = #12,R2,R3 


Get pointer to start of msg 


NETDRVSES 
v04-000 


54 oc 
54 


58 

5 

50. 0274 8F 
55 60 AS 


06 
00000000 ' GF 
50 
oc 
018¢ 
50 8E 


5054 


OWASSO ——9FWOO 
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sion Control Module for NETD 16-SEP-1 
= Co-routine to send mailbo 


ARAARAAAAAAAAAA AAA AAA AAAA AAA AAAS 
UMMA BEER EERE EWWWWIIoononon 


FW 9 OONOUE WIN OOONOAUFS WN OOONOUM 


208: 


584 0 


“SEP=1 


MOVW «RB, (R3) + 
MOVW UCBS$W_UNIT(RS),(R3)+ 
BSBW NETSMOV_CSTR 
MOVL S*#SS$_RORMAL ,RO 
JSB a(SP)+ 

; On coroutine return: 
: On return to caller: 
ADDL3 #12, R2,R4 

UBL 
MOVZWL #SS$_NOMBX,RO 
MOVL UCBSC_AMB(R5) RS 
JSB G*EXESWRTMAILBOX 
PUSH 

SUBL3 #12,R4,R0 
BSBW NETSDEALLOCATE 
POPL RO 

RSB 


4:38:10 AX/VMS Macro V04-00 
2:20:26 (CNETACP.SRCINETDRVSES.MAR; 1 


Enter unit fsDe code 


Page 
9° (82) 


Enter unit I|.D. 
Move in device name with count field 
Indicate success 

Call co-routine for more bytes 

Note that R4 is unmodified 


R5 = UCB address 
R3 = address of Ist byte past mbx msg 
R2 = buffer address 


RO = EXESWRITEMBX status 
R1-R5 are garbage 


Get start of mbx message 
Get length of mbx message 
Assume no mailbox 

Get mailbox 

If EQL then no mailbox 
Send message to mailbox 


Save return status 

Get buffer address 
Deallocate block in RO 
Restore reg 


Done 
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WO4e000 NE TSEREATE KUB - Create XWB for logical- 5-SEP-1984 83:38:38 NETACP.SRCIJNETDRVSES.MAR; 1 . (83) 
C § § -SBTTL NETSCREATE_XWB = Create XWB for logical-Link 
Bee 5688S 
C 6 3 ; An XWB (the logical-Link control structure that will eventually be attached 
C6 2660 ; to an 1/0 channel CCBSL_WIND field) is allocated and initialized, provided 
C6 2661 ; that the qurrent maximum logical-Link count is not exceeded. The current 
ace 206 : logical-Link count in incremented. 
te ee) ; No local Link address is assigned, and the XWB is not Linked into the LTB. 
C6 008 ; 
pace 667 ; INPUTS: Re NET UCB Address 
C6 443 ; 8 Remote node address 
0BC6 08 : RO Scratch 
OBC6 2670 ; 
OBC6 2671 ; OUTPUTS: R5 Address of XWB if successful, otherwise LBS 
0BC6 O76 g RO Status 
OBC6 26735 ; 
OBC6 2674 ; ALL other registers are preserved 
OBC6 2675 ; 
0BC6 ore i-- 
OBC6 2677 NETSCREATE_XWB:: ; Get idle XwB 
1€ BB OBC 978 PUSHR #*M<R1,R2,R3,R4> ; Save regs to be used 
OBC 79 : 
OBC 680 3 
OBC 681 : Make sure we are not over our Limit (MCOUNT = current Links + 1). 
fete 5688 : 
50 O27C BF 3C tt] 684 MOVZWL #SS$_NOLINKS,RO 3; Assume failure 
52 34 AS 44 OBCD 685 MOVL UCBSL_VCB(R5) ,R2 3; Point to RCB 
30 13 OBDi 2686 BEQL 1 : If EQL then no RCB 
51 54 A2 i$ OBD3 2687 MOVZWL RCBSW_MCOUNT(R2) ,R1 ; Get current Mount Count 
¢ 1 OBD7 688 BEQL ; If EQL, NETACP shutting down 
58 A2 1 61 nae 689 CMP R1,RCBSW_MAX_LNK(R2) : Is new Link allowed ? 
19 IA DD 2690 BGTRU : If not, branch 
51 017¢ or f OBDF 2691 MOVZWL #XWB_C_LEN,R1 ; Get size of XwB 
13¢ 0 OBES 636 BSBW NETSACONPGD_2Z ; Allocate the block and zero it 
OBE7 269 3: to initialize most fields 
51 3 dO E7 2694 MOVL R2,R1 ; Save XWB pointer 
52. 34 AS D0 OBEA 2695 MOVL UCBS$L_VCB(RS),R2 : Point to RCB 
> SF EE 269 MOVL ; Use standard XWB pointer 
54 OB A 4 OBF1 269 MOV 8(§P) RG ; Get dst node address 
10 5 E8 OBFS 2698 BLBS RO, 3; Br if successful 
pare +44 193: BUMP W BE GSU_COT ARE CRE) ; Account for resource error 
55 01 pO OcO 99 13$: MOV. #i,R : Invalidate XwB ptr 
a <3 C0 701 BRB 106$ : Done 
¢ 4 ¢ 15$: : 
: . : : Initialize the XWB and bump RCB mount count. 
Cc 7 $ 
15 10 OC 7 BsBB SINT _XWB ; Init xXwB ; 
009E C2 54 A2 Bi QCOA 27 8 CMPW R B$Q_MCOUNT(R2) ,RCBSW_CNT_MLL (Re) ; New max active Links value? 
4 1B OC g 7 BLEQU ; 1# LEQU then n 
0O9E C2 B6 OCI 710 INCW RCBSW_CNT_MLL(R2) ; Bump max active Link count 
C16 2711 ; (#links = MCOUNT-1) 
54 A2 B6 OC16 2712 308: INCW RCBSW_MCOUNT (R2) ; Account for new Link 


Se reer hd RTE a ene ee Oe Te AOE ee PO OTe = SET TO 


ORY ES 


50 


mm. 


0168 C 80 
0178 C5 00000000° 
8 


50.0011 


oS ae 
LO 
>>> 
wu 
oa > roocorrr,r 
oO VMmO ON" 
Sooo 
ero 
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nm Control Module for NETD 16-SEP- 
- Create XWB for logical- - 


=e 


#1,R0 
#*°MCR1,R2,R3,R4> 


XWB$Q_FREE_CXB(R5S) ,RO 


XWBSW_RETRA 
XWBSW_DLY_F 
XWBSW_DLY_W 
) , XWBSW_REMSI 
XWBSW_TIMER 


Dans Pin in Pi Pin Pi in Pi in in Tn i Ti i i i Ti i i | 


FF FW WWI WWIII PONONONONONNN) 2 Ss SS 


SIN NA A AAA MME & EE WIPO OS SS PP 
WN OOD NAUES WIN S(O OODNOAUE WN OOONOUES Ww 


SAN 


~™N 
ere 
wns 


Build the route header. 


FT EER) 
RCB$W_ADDR(R2) ,-(R1) 
R4,-(R1) 


#TRSSC_MSG_DATA,-(R1) 
R1,XWBSL_PTR_RTHD(RS) 
#6.-(R1) 


SOOOOOOOOOOSOOOCOCOOCOCOOOOOOCOOCOOOOOOOOOOOOOOO 23 


FOOOOOOOOIAIOOOOOOOOONO 


COOWDDOOONNNNS 
NOWMND OLMO 999999 NING OWIWOS OOF OM DUD NW MOO 
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NETACP.SRCJNETORVSES.MAR; 1 


3; Success 
; Restore regs 
Done 


: Initialize xXwB. 

3; Setup fork IPL 

; Setup structure type 

:; Init logical-Link state 
: Init the status word 

; Init FLG bits 

: Init rev'd discon reason 
3: Init xmt'd discon reason 
; Setup remote node i.d. 

; Setup VCB address 

; Setup Special Kernal AST 
; mode and address 


; Get free queue address 
; Init queue header 


; Set default rexmit's 

; Set defauit delay factor 
; default delay weight 
; Set temp ‘seg’ size 

; Set inbound connect timer 
; (#1 is for clock skew) 


Bese Be Se Se eee 
n 
@ 
oe 


Setup route-header pointer 
Zero the ‘‘visits’’ field 
Enter src node address 
Enter dst node address 
Enter message type , 
Setup route-header pointer 
os the route-header size 
one 
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TORVSES = DECnet Session Control Module for NETD 16-SEP-1984 01:32:10 VAX/VMS Macro v04-00 P 3 
Vou XWB_LOCLNK = Get XWB via local Link numb -SEP-1984 §3:36:38 NETACP.SRCINETDRVSES.MAR; 1 — (82) 
C97 2755 .SBTTL XWB_LOCLNK - Get XWB via local Link number 
coh $585 :* 
C97 2758 : INPUTS: R Any NET UCB address 
344 735 : RR Local Link number 
344 rel ; OUTPUTS: R5 Address of associated XWB, or low bit set if none 
344 768 : ALL other registers are preserved. 
C97 2765 KWB_LOCLNK: ; Get XWB context 
14 6B 344 £96 PUSHR #*M<R2,R4> 3; Save reg 
52 3405 00 0C99 2768 MOVL CBSL_VCB(RS) ,R2 > Get RCB address 
05 + Ocor oe? BNEQ rt 7 ; If NEQ the RCB exists 
55 4 bY 4 ah aot #1,R5 3 gavas seate XWB address 
: Done 
08 10 srt ak 5$ BSBB NETSXWB_LOCLNK ; If NEQ Locate the Link 
14 BA OCA6 2774 108 POPR #*M<R2,R4> : Restore re 
BS Ocas 5778 RSB 
BAS Srt8 
OCA9 2778 .SBTTL NETSXWB_LOCLNK = Get XWB via local Link number 
BAS orgs i 
OCA9 781 : The Link Table is located and the slot associated with the specified Link 
OCA9 27 ; ; mumber is found. If this slot contains an XWB then the Link sequence number 
QCA9 2783 ; is checked. If there is a sequence number mismatch, or if there is no 
OCA9 2784 ; get hye XWB, then the low bit of R5 is set. Else, the XWB address is stored 
OCA9 2785 ; in RS. 
OcAd S789 | 
OCA9 2788 ; INPUTS: R5.R4 Scratch 
OCA9 2789 ; R3 Local Link number - high order word is clear 
ocag a4 3 R2 RCB address 
OCA9 279 : OUTPUTS: R5 Address of associated XWB, or low bit set if none 
Beas a 3 R4 LTB (Link table) address 
OCA9 2795 : ALL other registers are preserved. 
OCA9 38 : 
CA9 2798 NETSXWB_LOCLNK: : ; Locate XWB via local Link number 
54 24 A2 00 CA9 79 MOVL RCBSL_PTR_LTB(R2) ,R4 ; Get Link Table pointer 
1—€ 13 OCAD 00 BEQL 20$ : Return error if not there 
55 53 FFFFFCOO 8F C CAF 01 BICL3 #*C<NETSC_MAXLNK>,R3,R5 ; Get Link ‘index' 
14 #1 CB7 8s BEQL sos 3; Index '0' isn't used 
04 A464 55 B81 OCB9 CMPW R5 ,LTBSW_SLT_TOT(R4) : Index within range ? 
Of 1A OCBD 4 BGTRU 208 : If not, branc 
55 10 Add 09 CBF 5 VL LBs. SLOTS(R4)CR5].R5 ; Get XWB address 
0955 ~+€ CC4 § BLBS R5, 308 : If LBS then none 
36 AS «53 sf cc? CMPW R53, XWBSW_LOCLNK(R5) 3; Sequence number match ? 
03 3 OCcB : BeaL §=s«-30$ : If so, branch. 
55 1 3 CCD gos BISB #1,R5 3: Flag no associated XwB 
cb0 10 50$ RSB 


eT a 
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we TORY ES ° petnet Session Control Module for NETD 16-SEP-1984 91:36:10 AX/VMS Macro V04-00 Page $% 
Vv NETSRET_SLOT = Return logical-Link XWB s 5-SEP-1984 02:20:26 CNETACP.SKCINETDRVSES.MAR; 1 (55) 
CDI 12 .SBTTL NETSRET_SLOT - Return logical-Link XWB slot if done 
Cd1 15 .SBTTL NETSQUE_XWB = Queue XWB to NETACP's AQB 
Bh gag i 
CD1 1 ; If the XWB is busy then the gusus attempt is aborted. If the XwWB is 
cot ! ; mot busy then the XWBSV_STS_SOL bit is set to prevent any further XWB use. 
CD1 18 ; 
CD1 0 ; 
$3 1 3; INPUTS: RS XWB pointer 
co! 3 OUTPUTS: RO,R1 Zero 
CD1 2825 ; ALL other registers are preserved. 
CD1 28 § i 
0CD1 | 3 
0CD1 8 ;-- 
t4 829 NETSRET_SLOT:: ; Return logical-Link if done 
1E AS 00 91 CD1 830 CMPB «= #XWBSC_STA_CLO,XWBSB_STA(R5) 3; In ‘closed’ state? 
06 13 OCDS 2831 BEQL : If so, continue 
1€E AS 06 = «91—«<OCD7 b3¢ CMPB = #XWBSC_STA_DIR, XWB$B_STA(R5) : If DIR state then we've sent 
0CcdB see 3; the DC ms already 
11 12 OQOCDB 2834 BNEQ 40$ 3; If not, XWB is still active 
0c AS) «6©BS «6(OCDD «602835 +108: TSTW XWBSW_REFCNT(RS) ; Any references ? 
OC 12 OCEO 2836 NEQ 40$ ; If NEQ must wait 
OCE 837 ;& BS #XWBSV_FLG_LOCK,XWBSW_FLG(R5),40$; Exit if xXWB is locked 
OE AS O0CO04 BF B3 OCE 838 BITW #XWBSM_STS_ASTPND!- 3; AST eagle 
OCE 839 XWBSM_STS_ASTREQ!- 3; AST requested 
oces 840 XWBSM_STS_SOL , XWBSW_STS(R5) ; Fork block in use 
04 12 CEB 2841 BNEQ 4 ; If NEQ, XWB is busy 
2A 10 OCEA Beg BSBB NETSDRAIN_FREE_CXB 3; Drain CXB free queue 
03 10 OCEC 284 BSBB =s NE TSQUE_Xx0B ; Queue XWB to NETACP's AQB 
50 7C¢ oces 844 40S: CLRQ R 3 Say ‘nothing to xmit"’ 
05 OCF 845 RSB 3; Done 
OCF1 2846 
OCF1 2847 
OCF1 848 Te a ; Queue XWB to NETACP’s AQB 
geet 3830 ASSUME IPLS$_SYNCH EQ NETSC_IPL 
1F OF AS O02 €E2 OCF 2851 BBSS #XWBSV_STS_SOL ,XWBSW_STS(R5),50$; If BS, then queue block in use 
3¢ = BB OcF6 a8 PUSHR #°M<R27R3,R4,R5> : Save regs 
52 30 a5 00 Sere 54 MOVL XWBSL_VCB(R5) ,R2 ; Get RCB ; 
OC A2 86 CFC 899 INCW RCBSWTTRANS(R2) : Account for ACP transaction 
54 10 ag 1) CFF 2§ MOVL RCBS$L_AQB(R2) ,R4 ; Get AQB 
04 B46 6 0 DO3 285 INSQUE (R5) ,@AQBSL_ACPOQBL (R4) ; Queue XWB to AQB 
OA 1 p07 58 BNEQ : If NEQ then not first 
51 OC AS OD 444 59 MOVL AQBSL_ACPPID(R4) ,R1 ; Get ACP’s PID 
00000000 ' GF 16 oI rs JSB G*SCHSWAKE ; Wake the ACP 
3¢ )6=—s BAss«éO#D 66 a0: POPR #*M<R2,R3,R4,R5> ; Restore regs 
05 0b15 63 50$: RSB 3; done 
D16 64 
D16 65 
D16 66 : 
Hh st -SBTTL NETSDRAIN_FREE_CXB - Drain CXB free queue 
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vo4-000°" NEVEOR 


et Sessi 
AIN_FREE_CXB = Drain CXB free queu 5-SEP-1 
pI ? NETSDRAIN_FREE_CXB:: ; Drain CXB free queue 
D1 ; 
4 4 : ALL registers except for RO must be preserved. 
D1 74 : 
50 0118 05 OF 001 75 108: —-REMQUE XWBSQ_FREE_CXB(R5) ,RO ; Get next CxB 
5 D1B 6 BVS : If VS, none left 
002E D1 7 BSBW WAL SDEALLOCATE ; Deallocate block in RO 
F4 D a BRB 10$ ; Loop 
05 OD 79 208: RSB 3 Done 
D HY 
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OA 6B 3 
Q00000000'GF 16 3 
OA BA : 
0450 €8 3 
524 4 
08 11 4 
08 A2 «51 ~~ =8B0 4 
1B 890 4 
OA A2 4 
05 0D4 
D4 
D4 
D4 
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Control Module oe Net mie 1384 04:36:10 pareve Macro Vv04-00 
Allocate and zero from s 5-SEP-1984 02:20:26 (CNETACP.SRCINETDRVSES.MAR; 1 

SBTTL NETS$ALONPGD.Z = Allocate and zero from eyeten pool 

SBTTL ON NETSALONONPAGED = Allocate from system poo 


A buffer is allocated from non=paged pool and its size field is set to 
the size requested. Its type field is set to DYNSC_CXB. 


INPUTS: Ré = Scratc 
Ri = size," in bytes, of block to be allocated 
RQ = Scrat 

OUTPUTS: R2 = Address of block if successful 


Zero if unsuccessfu 
RO = Standard VMS status code 


ALL other registers are preserved. 


-ENABL LSB 
NETSALONPGD 7Z:: ; Allocate and zero non-paged buffer 
BSBB NE TSALONONPAGED ; Allocate the buffer 
BLBC RO,20$ 3; If LBC then error 
PUSHR srMcRO R1,R2,R3,R4,R5> ; Save regs 
movcS #0, (SPS,#0,R1, (R2) : Zero the entire buffer 
POPR FARO, R1,R2,R3,R4,R5> : Restore regs 
BRB 10$ : Setup the type and size fields (again) 
NETSALONONPAGED: : ; Allocate non-paged memory 
PUSHR #*M<R1,R3> > Save regs 
JSB G7EXESALONONPAGED ; Allocate memory 
POPR #*M<R1,R3> ; Restore regs 
BLBS RG *0$ : If LBS then success 
CLRL R2 ; Zero the buffer pointer 
BRB 20$ ; Take common exit 
10$: MOVW R1,CXBSW_SIZE(R2) 3; Set size for deallocation 
MOVB #DY CXB,- ’ 
CXB$B_TYPE(R2) ; Set tentative buffer type 
20$: RSB 3; Return with status in 


-DSABL LSB 
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C 
Deallocate non-paged po 5-SEP-1984 NETACP.S REIN NETDRVSES.MAR; 1 
» SBTTL NETSDEALLOCATE = Deallocate non-paged pool 


vou-000°» NETSD 


‘o> 


IPL must be NETSC_IPL or Lower. 


INPUTS: RO Address of block 
OUTPUTS: RO Zero 
ALL other registers are preserved. 


ASSUME NETSC_IPL LE IPLS$_SYNCH ; Can*t deallocate above SYNCH 
NETSDEALLOCATE:: ; Deallocate non-paged pool 
OE 6B PUSHR #*M<R1,R2,R3> : Save regs 
7E D4 CLRL -(SP) 3 
51 08 AO 3¢ MOVZWL 8(RO),R1 : Get size of block 

00000000'GF 16 JSB G*EXESDEANONPGDS1Z : Deallocate it 

OF BA POPR #*M<RO,R1,R2,R3> : Restore regs 
05 RSB 3; Done 
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| NETDRVSES - DECnet Session Control Module for NETD 16-SEP-1984 01:32:10 VAX/VMS Macro v04-00 Page 68 | 
voerO08 NETSROV TO. KGB - Move counted string to ~-SEP-1984 38:06 NETACP.SRCIJNETDRVSES.MAR; 1 ° 58) 
DSF 2957 .SBTTL NETSMOV_TO_XWB = Move counted string to XWBSB_DATA 
DSF 228 ~SBTTL NETSMOVOCSTR - Move counted string with count field 
| 4 f 823 -SBTTL NETSMOV_USTR - Move counted string without count field 
DSF 2961 : | 
| Bb F 306 ; The source string is moved to its destination. Both the source 
D5F 2963 ; and destination pointers are updated. 
| OD5F 2964 | 
DSF 2965 ; 
| OD5F 966 ; INPUTS: RS Pointer to destination field 
et 4 ; R1 Pointer to count field of source string | 
| par 369 ; OUTPUTS: R3 Pointer to first byte beyond end of destination 
Ope 3f0 : R1 Pointer to first byte beyond source string 
ODSF 4h 3 ALL other registers are preserved 
ODSF 2973; 
ODSF 2974; 
ODSF 2975 ;- 
OD5F 976 -ENABL LSB 
ODSF 2977 NETSMOV_TO_XWB:: ; Move counted string to XWBSB_DATA 
53 DD ODSF 2978 PUSHL R3 ; Save reg 
53 5B AS 9E OQD61 2979 MOVAB XWBS$B_DATA(RS) ,R3 ; Setup destination ptr 
04 10 0D65 2980 BSBB we TSROV CSTR 3; Move the string 
53 8EDO OD67 2981 POPL fa ; Restore reg 
05 OQD6A oc¢ RSB 3; Done 
OD6B 298 3 : 
OD6B8 2984 NETSMOV_CSTR:: ; Move counted string with count byte 
35 BB 4 +H PUSHR #*M<RO,R2,R4,R5> ; Save regs 
50 61 9B OD6D 2987 MOVZBW (R1),RO ; 
50 B86 0070 2988 INCW RO : Include count itself 
o> Bore 4:44 BRB 10$ ; Continue in common 
0074 2991 NETSMOV_USTR:: ; Mov counted str w/o count byte 
35 6B pore 44 PUSHR #*M<RO,R2,R4,R5> ; Save regs 
50 681) «=69B «=(0D76 «2994 MOVZBW (R1)+,RO ; Get count value, advance ptr 
63 61 50 28 9079 $999 10$:  MOVC3 RO,(R1),(R3) : Move the string 
35 BA OQD7b 2997 POPR #*M<RO,R2,R4,R5> ; Restore regs 
05 OD7F 2998 RSB 
0D80 2999 
D80 3000 -DSABL LSB 
p80 3001 


Get string length 
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Control Module for NETD 1 ~SEP-1984 3: 36:10 AX/VMS Macro V04-00 Page $8 
nd IRP to COMS$POST -SEP-1984 02:2 NETACP.SRCIJNETDRVSES.MAR; 1 (59) 
» SBTTL NETSPOST_IO - Send IRP to COMSPOST 
: INPUTS: R3 IRP address 
: RO Scratch 
: OUTPUTS: RO SS$_NORMAL 
: ALL other registers are preserved 
NETSPOST_10:: ; Send IRP to COMSPOST 
; Complete the 1/0 
BUSHL R5 ; Save XWB pointer 
MOVL IRPSL UseCRs) » R5 :; Get UCB address 
JSB G*COMSPOS ; Another packet for the heap 
MOVL GapSS$, NORMAL, RO ; Always return success 
POPL R5 ; Recover XWB address 
RSB ; Done 
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NETDRVSES - DECnet Session Control Module tor NETD 4" SEP= 1384 01:36:10 aes Macro V04-00 Page (& | 
Symbol table SEP=1984 02:20:26 CNETACP.SRCINETORVSES.MAR; 1 (59) | 
LSB$V_BOM = 5 NETSC_DR_ACCESS = oF | 
LSB$V_EOM = 8 NETS$C_DR_BUSY = 6 
LSBSV-LI = NETSC_DR-DEACC = 6 G | 
CSBSv- “SPARE = 00000001 NETSC_DR_EXIT z g 
LSBSWIHAA = 09 6 8 NETSC_DR-FMT = 0 
LSBSW_HAR = 000 6 NETSC_DR_ INVALID s 0064 G 
LSBSW_HAX = 00000026 NETSC_DR_IVNODE = 000 8 2 
LSBSW_HNR = 00000024 NETSC_DR_NOBJ = 000 4 
LSBSW_HXS = 00000004 NETSC_OR_NONODE = 000000 ¢ 
LSBSW~LNX = 9900000 NET$C~DR-NOPATH = 000000 
LSBSW_LUX = 0000000 NETSC_DR_NORMAL = 00000000 
LTBSL_ =SLOTS = 90008) NETS$SC_DR_RSU = 9000001 
LTBSL— = 0000000C NETSC_DR_SHUT 2 3 
LTBSu_ aT _TOT = ats NETS$C_DOR- THIRD = 00000008 
MASKH = 01000000 NETSC_EFR_ASYN = 00000002 
MASKL = 00000000 NETSC_EFN_WAIT = S454 
MBXSM_EVTAVL = 00000002 NETSC_IPL = 00000008 
MBXSM_EVTRCVCHG = 00000004 NETSC_MAXACCFLD = 00000027 
MBXSM_EVTXMTCHG = 00000008 NETSC_ pala = 0000000F 
MBXSM_NETSTATE = 00000001 NETSC_MAXLNK = QOOOO3FF 
MBXSV_EVTAVL = 00000001 NE T$C_MAXNODNAM = 00000006 
MBXSV_EVTRCVCHG = seis TY NETSC_MAXOBJNAM = St 
MBXSV-EVTXMTCHG = 0000000 NETSC_MAX_AREAS = 0000003F 
MBXSV"-NETSTATE = 00000000 NETSC_MAX_LINES = 00000040 
MBX_ TABLE 44494 R 03 NETSC_MAX_NCB = 0000006E 
MSG3$_ABORT = 00000030 NETSC_MAX_NODES = QOOO03FF 
MSG$_ CONNEC = 44 44 NETSC_MAX_OBJ = QOOO00FF 
MSG$_DISCON = 0000003 NETSC_MAX_ WQE = 00000014 
MSG$_EVTAVL = 0000003E NETSC_MINBUF SIZ = 000000C0 
MSG$_EVTRCVCHG = 0000003F NETSC_STABITS = 00000003 
MSGS_EVTXMTCHG = 00000044 NETSC_TID_ACT = 00000003 
MSGS$_EXIT = 00000034 NETSC_TID_RUS = 00000001 
MSG$_NETSHUT = 00000038 NETSC_TID_XRT = 00000002 
MSG$_PATHLOST = 00000036 NETSC_TRCTL_CEL = 00000002 
MSG$_REJECT = si 4 its: NETSC_TRCTL_OVR = 44 HF 
MSG$_THIRDPARTY = 00000039 NETSC-UTLBUFSIZ = 00001000 
NETSAB_STTAB 0000013C R 03 NETSOBT Ben OSD RG 03 
NETSACTESS 00000581 R 03 NETSDEACCESS 00000777 RG 03 
NE TSACK_XMT_SEGS reeeeeee 03 NETSDEALLOCATE QOOO00D4E RG 03 
NE TSACP~ COMA 00000969 RG 03 NETSDRAIN_FREE_CXB 00000016 RG 03 
NE TSALORONPAGED 00000034 RG 03 NETSEN aeteeeee O 
NETSALONPGD 7 00000023 RG 03 NETSEND EVENT 0000032A RG 0 
NETSALTENTRY eeeneere =X 03 NETSEVENT 00000356 RG 03 
NE TSAW_FLG_CLRM OO 0R Tse R 8 NETSFOT “ACCESS a Te 83 
NETSAW_FLG SETM 00001 s k 0 NE TSFDT- CONTROL 00053 
NE TSAZ_DR_CONTAB 0000262 R 03 NETSFDT_DEACCESS 00000711 RG H 
NE TSAZ_ DR” TABLE 0000204 R 03 NETSFDT_RCV eeteeeee 0 
NE TSC C 00 03 NETSFDT_ ~SETMODE 00000508 R 8 
NETSCHK_X_IDLE O88 C2 RG 3 NETSFOT_X aeeteent 0 
NE TSC ACC 0 cA RG 3 NETSF ORR QOOOO2Z2EC RG 0 
NE TSCOMPCEX_EV 0000330 RG 03 NETSGL_OFF_DPTFLG 00000118 RG 0 
NE TSCONTROL 000054A R 03 NETSCL~ WORRBITS 0 $ 1E4 RG 0 
NETSCREATE XwWB O000BC6 RG 83 NET$GQ" PATCH 0 8 0 RG 0 
NETSCTLR_IRIT 08 4 R 0 NETSINTERRUPT 000002E1 R 0 
NETSC_ACTBITS = 5 NETSKAST aeenenee  X 
NETSC"ACT_TIMER s 8 3 NETSMAP_R_REASON 000002C0 RG 
NE T$C~DR_ABOR = 0000000 NETSMARR_CINK eeeeeeee =X | 
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NSP$$$_QUAL_FLW 
NSP$$$_QUAL— INF 
NSP$$$_QUAL_MSG 
NSP$$$" QUAL” SRV 
NSPS$C_EXT_LAK 
NSPSC_FLW_DATA 
NSPSC_FLW_INT 
NSPS$C_FLW_NOP 
NSPS$C_FLW_XOFF 
NSPSC_FLW_XON 
NSP$C_HSZ_ACK 
NSPRCWSZ_CA 
NSP$C_HSZ_CC 
NSPS$C_HSZ_CD 
NSP$C_HSZ_CI 
NSPS$C_HSZ_DATA 
NSPS$C_HSZ_DC 
NSPS$C_HSZ_DI 
NSP$C_HSZ_INT 
NSP$C_HSZ_LS 
NSPSC_INF_V31 
NSPSC_INF_V3 
NSPSC_INF V3 
NSPSC_MAXADR 
NSPSC_MAX_DELAY 
NSPS$C_MAX_R_CXB 
NSPS$C_MAX_XPw 
NSPSC_MSG_CA 
NSPS$C_MSG_CC 
NSP$C_MSG_CI 
NSP$C_MSG_DATA 
NSP$C_MSG_DC 
NSPS$C_MSG_DI 
NSPS$C_MSG_DTACK 
NSPSC_MSG_INT 
NSPS$C_MSG_LIACK 
SP$C_MSG_LS 
NSPSC_SRV_MFC 
NSPSC_SRV_NFC 
NSPS$C_SRV_REQ 
NSPS$C_SRV_SFC 
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NSPSM_FLW_XON A NSP$V_SRV_SP1 = 8 4 
NSPSM_INF_VER = NSP$W_DSTCNK s 1 
NSPSM_MSG_INT = NSP$W_SRCLNK = 3 
NSPSM_MSG = 1 ORBS$B_FLAGS = 8 
NSPSM_SRV~ = ORBSL_OWNER = 
NSPSM_SRV_EXT = 8 0 ORBSM_PROT_16 = 00 1 

SPSM_SRV_FLW = ORBSW_PROT = 00 Bon 
NSPSM_SRV_REQ = 000000 P1 = 00 0 
NSPSM_SRV_SP1 = 0000007 B = 4 4484 

SPS$R_QUAC = 00000000 P = 44h 8 
Ra wtege 5990066 rene sigh S12 = Seeeare 
Rene Ace Me = $999gge PEER -H = $9ee 
NSP$S_DATA_SP = 0000000 CBSL_PI = 0000006 
NSP$S_FLW_CHAN = 00000002 PHD$Q" PRIVMSK F SOoRTS 
NSPS$S_FLW_DR = 00000004 PR$_IPL = 0000001 
SPSS_FLW_MODE = 00000002 PROCRE QO00099E R 03 
NSPSS_INF_VER = 00000002 PROC_IO QOOQOQ04DA R 03 
NSP$S_MSG SP1 = 00000004 R3_OFF = 0000000C 
NSP$S_NSPASG = 00000005 R4_OFF = 00000010 
NSP$S_QUA = 00000005 R5_OFF = 00000014 
NSP$S_QUAL_ = 00000002 RCB$B_ECL_DFA = 00000064 
NSP$S_QUAL_ALTFLW = 00000001 RCBSB_ECL_DWE = 00000065 
NSP$S_QUAL_DATA = 00000001 RCBSB_ECL_RFA = 00000063 
NSP$S_QUAL_FLW = 00000001 RCBSL_ACP_UCB = 00000014 
NSP$S_QUAL_INF = 00000001 RCB$L_AQB = 00000010 
NSP$S_QUAL_MSG = 00000005 RCBSL_PTR_LTB = 44 Fe 
NSP$S_ QUAL” SRV = 00000001 RCB$L_PTR-TQE = 00000030 
NSP$S_SRV_01 = 00000002 RCBS$W_ADD = eset 
NSP$S_SRV_FLW = sea oat RCBSW_CNT_MLL = Q000009E 
NSP$S_SRV_SP1 = 0000000 RCBSW_CNT = 0000009C 
NSP$V_ACK_NAK = 0000000C RCBSW_ECLSEGSIZ = 0000007C 
NSPS$V_ACK = 00000000 RCBSW_MAX = 00000058 
NSP$V_ACK_SP = 0000000D RCB$W_MCOON = 00000054 
NSP$V_ACK_VALID = 0000000F RCBSW_TIM CNI = 00000076 
NSPSV_DATA_| = 00000005 RCBSW TRANS = Sat 
NSP$V_DATA_ = 00000006 REASORN_C_LENGTH = 4 94443 G 
NSP$V_DATA_OVFW = 00000007 REASON_W_DR = 00000000 G 
NSP$V_DATA_SP = 00000000 REASON_W_MBX = 444 G 
NSPS$V_FLW_CHAN = 00000002 REASON_W_SS = 00000002 G 
NSP$V_FLW_DRV = 00000004 REP QOOOOAAD R 03 
NSPS$V_FLW_INT = 00000005 SCHSGL_PCBVEC eereenee =X = 03 
NSPS$V_FLW_INUSE = 00000004 SCHSWARE aereeeee = = =X 03 
NSP$V_FLW_LISUB = Sit 4 SETUP_XWB $0008 4F R 03 
NSPS$V_FLW_ = 00 Bidens = 00000001 
NSPSV_FLW_SP1 = 0000000 SS$_ABORT = 0000002C 
a8 A = 4444 $184 SS$_ACCVIO = 0000000C 
NSPSV_FLW_SP = 00000 S$S$_BADPARAM = Oho8 ae 
NSPS$V_FLW_XOFF = 00000000 SS$_CONNECFAIL = S 0 of 
NSPSV_FLW_XON = 0001 S$S$_DEVALLOC = 0000084 
NSP$V_INF_VER = 0 9 SS$~F ILNOTACC = Q00000AC 
NSPS$V_MSG_INT = 0 SS$_ILLIOFUNC = QQOQQ00F4 
NSPSV_MSG_ = 00000004 SS$—- INVLOGIN = 99 9C 
NSPS$V_MSG_SP1 = BS SS$_LINKABORT = 00 E4 
NSP$V_SRV_O = SS$_LINKDISCON = S EC 
NSP$V_SRV_EXT = 00 SSS_LINKEXIT = F4 
NSP$V_SRV_FLW = 00000002 SS$_NOLINKS = 00 7¢ 
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XWBSS _R1D 
XWBSS_RPRNAM 
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XWBSW_PROGRESS 
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XWBST"DATA 
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‘NETDRVSES 
Psect synopsis 


Cee a a 


PSECT name Allocation PSECT No. Attributes 
. ABS 0 ( oF 0¢( 0.) NOPIC USR 
SABSS$ G000037 ( 89°} 1 ¢( 1.) NOPIC USR 
$$$105_P PROLOGUE OOOO8E ( 138°? 02 ( ¢°} NOPIC USR 
$$$115"D RIVER 0000009 ( 3475.) 03 ¢ -) NOPIC USR 
waar aan ec meen maemo e ae oe = 
! Perfermence indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 99 00:00:00.09 00:00:00.71 
Command processing 157 00:00:01.15 00:00:04.92 
Pass 1 990 es PERS 00:01:28.11 
Symbol table sort te Ee 00:00:12.19 
Pass 2 52 00:00:10.7 00:00:19.59 
Symbol table output 8880: 8085 Se eT 
Psect synopsis output OF taO: -05 0:00:00.15 
Cross-reference output 83028999 00:00:00.00 
Assembler run totals 1698 00:01:03.71 00:02:06.71 


working set_Limit was 2000 pages. 
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Th 
24.3296 bytes (476 pages) of virtusl memory were used to pur ter the intermediate 


teers were 180 pages of symbol table space allocated to hold 3212 
3029 source Lines were read in Pass 1, producin 


object records in Pass 
91 pages of virtual memory were used to define 


me macros. 


SR Hen ETE Dow ee Doe Bee DO ee} 
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Macro Library name 
$255$DUA28: 
=B35Se0UA 8: 
$255SDUA28: 


“$ :(SYS.OBJIL 

“$255 A28: SYSLIBJSTARLET. ie: 2 

TOTALS tail Libraries) 

3485 GETS were required to define 53 macros. 


There were no errors, warnings or information messages. 


non-local and 


MACRO/L:S=LIS$:NETDRVSES/OBJ=OBJ$:NETDRVSES MSRC$:NETDRVSES/UPDATE=(ENHS$:NETDRVSES) +EXECML$/LIB+LIB$:NET/LIB+LIB$:NETORV/LIB*SHRL IBS 
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v04-00 Page 78 NET! 
RCINETDRVSES.MAR:1 9" (59) vou 
ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
REL LCL XE RD WRT NOVEC BYTE 
REL LCL XE WRT NOVEC LONG 
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